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ABSTRACT 


This thesis describes the integration of an Apple II 
plus computer into an existing sun tracking system. The 
Apple Computer replaced an Intel 80/10A single board com- 
puter as the system controller. Software development and 
hardwiring were necessary to successfully integrate the 
new computer into the system. With the new computer installed, 
user interaction with the tracking system became possible. 
Additionally it was possible to replace hard to interpret 
asseneie language code with higher level Basic code as the 


system controlling software. 
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io Selo ReeCUCTION 


As the finite conventional energy sources of the world 
are depleted, and their costs increase, alternative energy 
Pweeces ate DEeCOming mone ana more attractive. Although in 
many instances these alternative sources cannot compete 
economically with gas, oil, and other conventional sources, 
it is just a matter of time until alternative and conven- 
tional sources will be competitive. Already many homes 
have solar collectors and other devices designed to decrease 
EPHowComsUMpEloOn Of gas, O11, and electricity. Prototype 
solar power plants are appearing in various parts of the 
world, and geothermally produced power is now a viable option 
in areas where this natural resource is available. In short, 
our energy sources are shifting, and by necessity will 
continue to shift, from the non-renewable to the renewable. 

Of the renewable energy sources available, solar energy 
is by far the most abundant. On the average, 1.7 x10E14 
kilowatts of solar power continually reach the Earth. If 
all of this power could be captured and used, it would amount 
to approximately 5000 times the rate at which power 1s cur- 
wenely comsumed Wy the entire Earth's population [Ref. 1]. 

It should be clear that the development of techniques for 
the conversion of this resource into usable forms of energy 


Peomeccemiaal to oumeruture as an industrial nation. 


One method that is available for converting solar energy 
into a usable form involves the use of solar thermal collec- 
tors. This type of collector captures the sun's radiated 
energy and transfers the resultant thermal energy to a 
fluid, which in turn transfers its thermal energy to the 
user, or places it in a storage facility [Ref. 1]. 

Solar collectors can be divided into broad categories: 
the nonconcentrating flat plate collectors, and the concen- 
trating collectors. Flat plate collectors are for the most 
part stationary, and do not concentrate the energy received 
by them. In the northern hemisphere flat plate collectors 
are normally set facing south, and are tilted back to an 
angle equal to the local latitude plus 10 aeons as shown 
in Figure 1. In this position the flat plate collector is 
able to efficiently convert radiated energy into thermal 
energy for a large range of incidence angles. Point concen- 
trating collectors on the other hand require an incidence 
angle close to zero to effectively focus the captured radiated 
energy onto a small area, or a receiver vessel. This means 
that, in order to maintain a usable incidence angle, either 
the reflector or its associated receiver must move in 
response to the sun's changing celestial position. The greater 
the concentration factor of Spe eae aes collector ijn the 
more critical the incidence angle of the sun's rays becomes. 

The decision to use one collector type over another 


depends to a large extent upon its intended use. For low 


Solar Noon 





EAST Virose 


Potomac. A Flat Plate Collector and the Sun's 
Track for a Typical One Day Period 
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temperature applications the fixed plate collector would 
normally be the correct choice, but for higher temperature 
applications the concentrating collector should be used. 
Power plant applications, for example, use concentrating 
collectors to produce the high temperatures necessary to 
generate turbogenerator drive steam. Household hot water 
and swimming pool heating systems, on the other hand, would 
use flat plate collectors for both economical and practical 
reasons. 

As mentioned, a point concentrating collector's effi- 
ciency is a direct function of how accurately the collector 
can be pointed directly at the sun. A point focusing type 
collector is usually Bere surfaced parabolic reflector. 
This reflector captures the solar radiation that strikes 
it, and reflects the energy to a point called the focus. 

A receiver is placed at the focus and is heated to very 
high temperatures by the concentrated solar energy. Liquid 
in the receiver absorbs the heat and can be used to perform 
work, Figure 2A. If the reflector 1s not semi -eanc--er, 
at the sun, the incidence angle is not zero and the focus 
shifts from the receiver, as in Figure 2B. 

The mechanism that keeps the point concentrating collector 
eerie at the sun is the main topic of this research. An 
Apple II plus micro computer is used to control a Dual Axis 
Sun Tracking system. The system used already existed, but 


was controlled by an Intel 80/10A Single Board Computer [Ref. 2]. 
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Additionally the controlling software was written in assembly 
language, and downloaded onto EPROM'S. The 80/10A was 
replaced by an Apple II plus computer to (1) allow for 

user interaction with the sun tracking system and (2) to 

have the controlling software written in the easier to 


understand Basic programming language. 
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A. SYSTEM COMPONENT DESCRIPTION 

The solar tracking system consists of three main com- 
ponents. The first is a mechanism known as a Dual Axis 
Solar Tracking Device. This device consists of two stepping 
Meters fOr MOrizontal and vertical drive power, four photo 
pode esemsors used for sum location and tracking, and four 
limit switches that ensure the tracker drive axis are limited 
im the amount they can rotate, thus preventing system wrap 
around, and providing start position information. Figures 3 
and 4 show front and side views of the solar tracking com- 
ponent. Figure 3 shows the location of the two stepping 
drive motors, and the layout of the photo diode sensors 
(ES,WS,US,DS). As shown the horizontal and vertical stepping 
motors drive the sensor platform and sensor arm through a 
series of gears. The horizontal motor causes the platform 
to. rotate through a maximum 180 degree arc in either direc- 
Mion witha the vertical motor Causes the sensor arm to move 
through a maximum 90 degree arc between the up and down 
positions. Figure 4 shows the sensor arm, the limit switches 
(Fieve Ul, ob), anaetne Signals into and out of the tracker. 
The signals consist of four electrical current values that 
are proportional to the intensity of the light falling on 


each sensor, four ON (+5V) or OFF (-5V) signals from the . 
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limit switches, and drive signals from the controlling 
computer to the stepping drive motors. 

The next component of the system is called the Amplifi- 
cation/Isolation box, hereafter called the A/I box. This 
box contains the circuitry necessary to interface che 
controlling computer to the sun tracker. Motor drive commands 
arriving from the computer are amplified and sent on to the 
drive motors, and sensor signals are amplified before being 
sent to the computer. Also associated with the amplifica- 
tion circuitry are isolation Circults to preteces the comeuees 
from short circuits and power surges. The limit switch 
Signals also go through the A/I box on their way to the 
computer, but are not altered in the process. 

The third main component is the Apple II plus computer. 
This component with its associated software takes in the 
sensor data and provides the proper drive motor control 
Signals to locate and track the sun. Limit switch values are 
also checked to determine if the tracker has reached the 
limit of a particular drive direction. As mentioned the 
Apple replaced the Intel computer so that the system would 
be user interactive, and the software would be easier to 
interpret in the higher level Basic language. Figure 5 is 
a system block diagram which shows the signal flow between 
components, as well as the internal flow of the computer. 

The analog to digital card and controlling software within 


the computer will be discussed in detail later. 
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B. (SYSTEM@So. CeturT 

While some system operation and hardware descriptions 
were available in [Ref. 2], they were insufficient to provide 
the detailed system knowledge necessary to integrate a new 
computer into the system. It was therefore necessary to 
begin the integration process by performing a thorough 
SYSEEM Erace fetes 

The A/I box was the initial and main focus of this 
trace out since all system signals enter and exit this 
component. First, all wires entering and leaving the box 
were traced. Figure 6 and Table 1 describe the results of 
this effort. Jacks one through three and single wire 
connections A through V are illustrated with their associated 
inputs and outputs, these inputs and outputs are further 
described in Table l. It should be noted that the micro- 
processor referenced in the signal descriptions is the 
Original Intel 80/10A and not the Apple. These signals are 
provided since the Intel hook up was left intact so it can 
still be used if desired. . The Apple is connected inside 
the A/I box via a bus bar. Once the input and output con- 
nections were determined, the A/I boxes internal electronics 
could be traced. Figure 7 and Table 2 show the layout of 
the circuit board inside the A/I box, and describe the 
Signals entering and leaving it. Note that the four LM747 
OPAMP chips are all connected Boetdeneie sy oe ona sea 


east sensor (ES) hook up is drawn to avoid cluttering the 
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TABLE 1 


SIGNAL DESCRIPTION FOR TOP OF AMPLIFICATION/ISOLATION BOX 


JACK Jl 


(1) 
(2) 
(3) 
(4) 
(3) 
(6) 
(7) 
(8) 
(9) 
(19) 
(11) 
(12) 
(12) 
(14) 


JACK 


(1) 
(2) 
(3) 
(4) 
(3) 
(6) 
(7) 
(8) 
(9) 
(10) 
(11) 
(12) 
(13) 
(14) 


JACK 


(1) 
(2) 


(3) 
(4) 


EAST LIMIT SWITCH SIGNAL TO MICROPROCESSOR 


DOWN SENSOR SIGNAL TO MICROPROCESSOR 
UP SENSOR SIGNAL TO MICROPROCESSOR 
WEST SENSOR SIGNAL TO MICROPROCESSOR 
EAST SENSOR SIGNAL TO MICROPROCESSOR 
GROUND 

GROUND 


UP LIMIT SWITCH SIGNAL TO MICROPROCESSOR 
DOWN LIMIT SWITCH SIGNAL TO MICROPROCESSOR 


WEST LIMIT SWITCH SIGNAL 
NOT USED 

+15 VOLTS TO LM 
-15 VOLTS TO LM 
GROUND 


747 CHIP 
747 CHIP 


J2 


UP SENSOR INPUT FROM TRACKER 
EAST SENSOR INPUT FROM TRACKER 
VERTICAL DRIVE STEP ELEMENT #1 
VERTICAL DRIVE STEP ELEMENT #2 
VERTICAL DRIVE STEP ELEMENT #3 
VERTICAL DRIVE STEP ELEMENT #4 
GROUND 

NOT USED 

WEST SENSOR INPUT FROM TRACKER 
DOWN SENSOR INPUT FROM TRACKER 
HORIZONTAL DRIVE STEP ELEMENT #1 FROM 
HORIZONTAL DRIVE STEP ELEMENT #2 FROM 
HORIZONTAL DRIVE STEP ELEMENT #3 FROM 
HORIZONTAL DRIVE STEP ELEMENT #4 FROM 


JS 


+6.35 VOLTS TO VERTICAL STEPPING MOTOR 
AMPLIFIED VERTICAL STEP ELEMENT #3 TO 
STEPPING MOTOR 
+6.3 VOLTS TO VERTICAL STEPPING MOTOR 
AMPLIFIED VERTICAL STEP ELEMENT #1 TO 
STEPPING MOTOR 


20 


TO MICROPROCESSOR 


FROM MICROPROCESSOR 
FROM MICROPROCESSOR 
FROM MICROPROCESSOR 
FROM MICROPROCESSOR 


MICROPROCESSOR 
MICROPROCESSOR 
MICROPROCESSOR 
MICROPROCESSOR 


VERTICAL 


VERTICAL 


(5). 
(6) 
(7) 
(8) 
(9) 
(10) 
(11) 
(12) 


(13) 
(14) 


AMPLIFIED VERTICAL STEP ELEMENT #2 TO VERTICAL 


STEPPING MOTOR 


STEPPING MOTOR 


AMPLIFIED HORIZONTAL STEP ELEMENT #4 TO 


STEPPING MOTOR 


+6.3 VOLTS TO HORIZONTAL STEPPING MOTOR 
+6.3 VOLTS TO HORIZONTAL STEPPING MOTOR 
AMPLIFIED HORIZONTAL STEP ELEMENT #3 TO 


STEPPING MOTOR 


AMPLIFIED HORIZONTAL STEP ELEMENT #2 TO 


STEPPING MOTOR 


AMPLIFIED HORIZONTAL STEP ELEMENT #1 TO 


STEPPING MOTOR 
NOT USED 
NOT USED 


SINGLE PIN JACKS 


(A) 
(B) 
(C) 
(D) 
(E) 
te) 
(6) 
(H) 
(I) 
(J) 
(K) 
(L) 
(M) 
(N) 
(QO) 
(F) 
(Q) 
(R) 
(S) 
(T) 
(U) 
(V) 


+5 VOLTS 
+5 VOLTS TO LIMIT SWITCHES 


AMPLIFIED VERTICAL STEP ELEMENT #4 TO VERTICAL 


HORIZONTAL 


HORIZONTAL 


HORIZONTAL 


HORIZONTAL 


-15 VOLT INPUT WHEN NOT USING INTEL 80/10A 
+15 VOLT INPUT WHEN NOT USING INTEL 80/10A 


EAST LIMIT SWITCH SIGNAL FROM TRACKER 
NOT USED 

WEST LIMIT SWITCH SIGNAL FROM TRACKER 
NOT USED 

NOT USED 

+6.3 VOLTS FROM EXTERNAL POWER SUPPLY 
+6.3 VOLTS FROM EXTERNAL POWER SUPPLY 
GROUND 

GROUND 

NOT USED 

NOT USED 

UP LIMIT SWITCH SIGNAL FROM TRACKER 
NOT USED 

DOWN LIMIT SWITCH SIGNAL FROM TRACKER 
NOT USED 

NOT USED 

GROUND 

GROUND 
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(A) 
(1) 
(B) 


a) 
(C) 
(3) 
(M) 
(11) 
(N) 
(12) 
(PF) 
(13) 
(R) 
(14) 
(S) 


(15) 
(T) 


(16) 
(U) 


(17) 
(V) 


(18) 
(W) 


19) 
(X) 


(20) 
re) 


(21) 
(Z) 


TABLE 2 


AMPLIFICATION/ ISOLATION BOX CIRCUIT BOARD SIGNALS 
(LETTERED PINS ARE ON TOP OF CIRCUIT BOARD) 


GROUND 

GROUND ° 

+6.35 VOLTS TO 7805 VOLTAGE REGULATOR FOR +5 VOLTS 
REGULATED SUPPLY TO 7407 CHIPS 

+15 VOLTS IN FOR LM 747 CHIPS 

-15 VOLTS IN FOR LM 747 CHIPS 

+5 VOLTS OUT USED BY LIMIT SWITCHES 

DOWN SENSOR AMPLIFIED SIGNAL OUTPUT 

DOWN SENSOR UNAMPLIFIED SIGNAL INPUT TO LM 747 CHIP 
UP SENSOR AMPLIFIED SIGNAL OUTPUT 

UP SENSOR UNAMPLIFIED SIGNAL INPUT TO LM 747 CHIP 
WEST SENSOR AMPLIFIED SIGNAL OUTPUT 

WEST SENSOR UNAMPLIFIED SIGNAL INPUT TO LM 747 CHIP 
EAST SENSOR AMPLIFIED SIGNAL OUTPUT 

EAST SENSOR UNAMPLIFIED SIGNAL INPUT TO LM 747 CHIP 
VERTICAL STEP ELEMENT #1 OUTPUT TO POWER TRANSISTOR 
BASE 

VERTICAL STEP ELEMENT #1 INPUT FROM MICROPROCESSOR 
VERTICAL STEP ELEMENT #2 OUTPUT TO POWER TRANSISTOR 
BASE 

VERTICAL STEP ELEMENT #2 INPUT FROM MICROPROCESSOR 
VERTICAL STEP ELEMENT #3 OUTPUT TO POWER TRANSISTOR 
FASE 

VERTICAL STEP ELEMENT #3 INPUT FROM MICROPROCESSOR 
VERTICAL STEP ELEMENT #4 OUTPUT TO POWER TRANSISTOR 
BASE 

VERTICAL STEP ELEMENT #4 INPUT FROM MICROPROCESSOR 
HORIZONTAL STEP ELEMENT #4 OUTPUT TO POWER TRANSISTOR 
FASE 

HORIZONTAL STEP ELEMENT #4 INPUT FROM MICROPROCESSOR 
HORIZONTAL STEP ELEMENT #3 OUTPUT TO POWER TRANSISTOR 
BASE 

HORIZONTAL STEP ELEMENT #3 INPUT FROM MICROPROCESSOR 
HORIZONTAL STEP ELEMENT #2 OUTPUT TO POWER TRANSISTOR 
BASE 

HORIZONTAL STEP ELEMENT #2 INPUT FROM MICROPROCESSOR 
HORIZONTAL STEP ELEMENT #1 OUTPUT TO POWER TRANSISTOR 
BASE 

HORIZONTAL STEP ELEMENT #1 INPUT FROM MICROPROCESSOR 


ZS 


figure. Additionally all signals entering and leaving the 
circuit board apply to either the Intel or Apple computers. 
Figure 8 shows the remainder of the electronics inside the 
A/I box, namely the eight power transistors used to amplify 
the step signals sent to the stepping motors. The step ele- 
ments Vl through V4 and Hl through H4 will be explained in 
detail later. Figure 9 and Table 3 are included only for 
completeness of system documentation, and to avoid future 
duplication of effort. They represent the Intel 80/10A 


wiring and signal description. 


C. sSYSTEMSOPERATAON 

Once the signal flow had been determined, the actual 
system operation was the next focus of investigation. This 
information was necessary because the characteristics of the 
Signals coming into, and the type of the signals going out 
of the new computer had to be known. 

There were two areas of investigation during the system 
Operation phase. The first was the two driver stepping 
motors, and their control circuitry. A thorough understanding 
of their operation was essential to the later development 
of the software drive routines. As no technical documenta- 
tion was readily available for the stepping motors that were 
used, the following data was obtained from [Ref. 2], experi- 
mentation, name plate data, and general stepping motor theory 


[Ref. 3]. The motors used were Superior Electric synchronous 
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JACK 


(36) 
(41) 
(43) 
(45) 
(47) 


JACK 


(44) 
(43) 
(45) 
(47) 
(49) 


JACK 


(2) 
(4) 
(6) 
(8) 


TABLE 3 


INTEL 80/10A SINGLE BOARD COMPUTER CONNECTIONS 


vd 

GROUND 

HORIZONTAL STEP ELEMENT #1 TO AMPLIFIER/ISOLATION BOX 
HORIZONTAL STEP ELEMENT #2 TO AMPLIFIER/ISOLATION BOX 
HORIZONTAL STEP ELEMENT #3 TO AMPLIFIER/ISOLATION BOX 
HORIZONTAL STEP ELEMENT #4 TO AMPLIFIER/ISOLATION BOX 
(REMAINING PINS NOT USED) 

J2 

GROUND 

VERTICAL STEP ELEMENT #1 TO AMPLIFIER/ISOLATION BOX 


VERTICAL STEP ELEMENT #2 
VERTICAL STEP ELEMENT #3 
VERTICAL STEP ELEMENT #4 
(REMAINING PINS NOT USED) 


TO AMPLIFIER/ISOLATION BOX 
TO AMPLIFIER/ISOLATION BOX 
TO AMPLIFIER/ISOLATION BOX 


JS 


GROUND 
GROUND 
-15 VOLTS TO AMPLIFIER/ISOLATION BOX 
+15 VOLTS TO AMPLIFIER/ISOLATION BOX 


(18,19, 21, 23, 25, 27,29, 31,33) GROUND 


(20) 
22) 
(24) 
(26) 
(28) 
(30) 
($2) 


EAST SENSOR INPUT FROM AMPLIFIER/ISOLATION BOX 

WEST SENSOR INPUT FROM AMPLIFIER/ISOLATION BOX 

UP SENSOR INPUT FROM AMPLIFIER/ISOLATION BOX 

DOWN SENSOR INPUT FROM AMPLIFIER/ISOLATION BOX 

EAST LIMIT SWITCH INPUT FROM AMPLIFIER/ISOLATION BOX 
WEST LIMIT SWITCH INPUT FROM AMPLIFIER/ISOLATION BOX 
DOWN LIMIT SWITCH INPUT FROM AMPLIFIER/ISOLATION BOX 
(REMAINING PINS NOT USED) 
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stepping motors that have a nominal DC voltage rating of 

6.9. Volts and a rated amperes per winding value of 1.6 Amps. 
Figure 10 is a schematic representation of a typical stepping 
motor, and its interface to the system. In this schematic 
the rotor is a four pole permanent magnet (large circle). 
There are eight stators, each of which is an electromagnet. 
These stators are divided into two groups of four. One group 
is controlled by power transistors 1 and 2, the other by 3 
and 4. Each stator is wound by wire in two directions. For 
the set controlled by power transistors 1 and 2 the polarities 
of each stator depend on whether transistor 1 or 2 is turned 
on. The left hand rule for electron current flow can be 

used to determine the polarity of each sensor. By wrapping 
the fingers of the left hand around the stator in the direc- 
tion of current flow, the north pole is determined to be the 
end of the stator that the thumb points to. For example i1f£ 
transistor 1 is turned ony electron cur rene wee loy tron 
the grounded terminal of the transistor to the +6.9 Volts at 
the top Of Ghesdtaguan. 5 applying the léit haneemure, 
S-N-S-N configuration is observed. If transistor 2 were 
conducting a N-S-N-S configuration would result. Transistors 
1 and 2 conducting at the same time is not a valid state. 
Transistors 3 and 4 control the other set of stators ina 
Similar manner. It is by this ability to alter the polarity 
of these stator sets that the stepping motion of the motors 


is realized. An example step command is illustrated in the 
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figure. In this instance a 1001 step 1S input yeona 7407 
noninverting hex driver chip. A "1" Beason a +5 Volt 
high signal, and a "0" represents a zero Volt low signal. 
When a low signal is applied, the driver can sink up to 
30mA., and the +5 volts at the base of the transistor is 
dropped across the base resistor thus keeping the transistor 
turned off. When a high signal is sensed the driver becomes 
an open circuit, and the +5 Volts is no longer dropped across 
the base resistor. The +5 Volts is sensed at the base of the 
NPN transistor, and it is turned on. Current can now be 
conducted through the stator windings so that the stators 

are polarized. With the above description in mind, the 1001 
step example can easily be shown to produce the indicated 
stator polarizations. Finally remembering that unlike poles 
attract, the rotor orientation is set as shown. 

In summary each step command to the stepping motor has 
four step elements, as in the 1001 example. The first two 
elements control one set of four stators, and the last two 
steps the second set. The, polarity configurat renee: sa 
stator set is determined by which of the two controlling step 
elements is high. 

The above description is for a four pole rotor with 
eight stators. The actual stepping motor used has four 50 
pole rotors stacked one above the other, each offset slightly 
from the one below it. This offset in essence gives a 100 


pole rotor. There are still only eight electromagnetic 
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Beoeemsa, Ue Cach has five high points on its surface. The 
magnetic field is concentrated at the high points giving the 
appearance of five stators of the same polarity. This large 
number of poles allows the step size to be either 0.9 or 

1.8 degrees, depending upon the drive sequence used to step 
the motor. These step sizes correspond to either 400 or 200 
steps per 360 degree revolution. The example that was dis- 
cussed in Figure 10 would have produced 22.5 or 45 degree 
seepo nou t6 Or 8 steps per revolution, again depending upon 
the drive sequence used. The smaller steps of the real 
Moeoreame Clearly more useful in real world applications 
than the large steps of the example. 

AS mentioned the step size depends on the drive sequence 
used. Figure 1l shows a four step loop. Notice that each 
change in stator polarization produces a 45 degree movement 
of the rotor. The loop is repeated over and over to drive 
the stepping motor the desired number of steps. In this case 
the loop must be repeated twice per 360 degree revolution. 
Memsmoulma be noted that step one produced a 45 degree movement 
Eel orer tO place It im Ehe £irse position, so that four 
steps produce a 180 degree transition. The small numbers l 
and 2 on the first step, mark the starting positions of the 
first and second stator sets. The stators are laid out in 
the same manner as those in Figure 10. Again the first two 
elements of each step control stator set one, and the last 


two stator set two. Figure 12 is a typical eight step Le@p. 
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In this case each step moves the rotor 22.5 degrees. The 
smaller steps are realized by inserting four extra steps 
between the original four. In each of the extra steps one 
of the stator sets is left off by noOENturpni nage eoiener won 
its associated transistors. The rotor aligns itself as 
illustrated, on the energized stator set. It is these same 
4 and 8 step loops that produce the 0.9 and 1.8 degree steps 
of the real drive motors. The only difference is that the 
loop must be repeated many mone EImes per moronere eo elon 
With the above information, drive routines for the new 
computer could now be developed. 

The second of the two main areas of investigation was 
the sensor circuitry. As mentioned the sensors are photo- 
diodes that generate a current proportional to the intensity 
of the light falling on them. Figure 13 shows sensor output 
Signal amplification circuitry for the east sensor. The 
letters A through F correspond to the letters at the top of 
the A/I box circuit board shown in Freure 7, Se@@egacsenis 
figure can be tied to the actual hardware. The circuit 
operates as follows. The first op amp provides a voltage 
output proportional to the current input from the energized 
photodiode. This voltage is then further amplified by the 
second op amp, to provide a signal that is usable by the 
computer. This output varies from mearezero vores ieoneed— 
sensor is ina shadow, to near 2.5 volts in the bright 
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D. COMPUTER INTEGRATION 

With the preliminary research complete, the problem of 
integrating the new computer into the system could be taken 
up. The Apple II Plus computer is equipped with several 
internal card slots, so that integrared Vermeeui1t "ards i7a1ch 
perform many different functions can be added to the computer. 
After some difficulty in choosing a card to use for inter- 
facing the computer to the system, an analog to digital/ 
digital to analog card (A/D card) was chosen [Ref. 4]. This 
card has 16 channels of analog input and 16 channels of 
analog output. Each of the 32 channels has an address and 
can be accessed by software commands. Eight of the digital 
to analog output channels (4 per motor) were used to deliver 
the drive step commands to the stepper motors. Additionally 
eight of the analog to digital input channels were used to 
input the 4 sensor and the 4 limit switch signals. Figure 14 
shows the A/D card and the jacks coming from it. These jacks 
are connected to two similar jacks coming from the A/I box. 
Table 4 describes the signals on the jacks, lists the 
A/D card channel associated with each pin (whether used or 
not), and gives the color of the wire associated with each 
Signal for ease of identification. With the hardware inter- 
facing completed the development of the controlling software 


Could bec in. 
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TABLE 4 


LISTING OF THE A/D CARD JACK CONNECTIONS 
(WIRE COLOR GIVEN AT END OF SIGNAL DESCRIPTION) 
(NOTE CARD CHANNEL GIVEN BELOW SIGNAL DESCRIPTION) 


JACK #1 

(1) NOT USED 
CHANNEL 15 

(2) NOT USED 
CHANNEL 14 

(3) NOT USED 
CHANNEL 13 

(4) NOT USED 
CHANNEL 12 

(5) NOT USED 
CHANNEL 11 

(4) NOT USED 
CHANNEL 10 

(7) NOT USED 
CHANNEL 9 

(8) VERTICAL STEP ELEMENT #4 TO AMP/ISOLATION BOX (YELLOW) 
CHANNEL 8 

(9) VERTICAL STEP ELEMENT #3 TO A/I BOX (GREEN) 
CHANNEL 7 

(10) VERTICAL STEP ELEMENT #2 TO A/I BOX (RED) 
CHANNEL 6 

(11) VERTICAL STEP ELEMENT #1 TO A/I BOX (BLUE) 
CHANNEL 5 

(12) HORIZONTAL STEP ELEMENT #4 TO A/I BOX (YELLOW) 
CHANNEL 4 

(13) 


HORIZONTAL STEP ELEMENT #3 TO A/I BOX (GREEN) 
CHANNEL 3 


(14-21) COMMON GROUNDS, GROUND WIRE FROM A/I BOX IN 14 
(BLACK) 


(22) 
(23) 


(24) 


(25) 


NOT USED 

NOT USED 

CHANNEL O 

HORIZONTAL STEP ELEMENT #1 TO A/I BOX (BLUE) 
CHANNEL 1 

HORIZONTAL STEP ELEMENT #2 TO A/I BOX (RED) 
CHANNEL 2 
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JACK #2 


(1) NOT USED 
CHANNEL 15 

(2) NOT USED 
CHANNEL 14 

(3) NOT USED 
CHANNEL 13 

(4) NOT USED 
CHANNEL 12 

(5) NOT USED 
CHANNEL 11 

(6) NOT USED 
CHANNEL 10 

(7) NOT USED 
CHANNEL 9 

(8) DOWN LIMIT SWITCH INPUT FROM A/I BOX (YELLOW) 
CHANNEL 8 

(9) UP LIMIT SWITCH INPUT FROM A/I BOX (GREEN) 
CHANNEL 7 

(10) WEST LIMIT SWITCH INPUT FROM A/I BOX (RED) 
CHANNEL 6 

(11) EAST LIMIT SWITCH INPUT FROM A/I BOX (BLUE) 
CHANNEL 5 

(12) DOWN SENSOR INPUT FROM A/I BOX (YELLOW) 
CHANNEL 4 

(13) UP SENSOR INPUT FROM A/I BOX (GREEN) 
CHANNEL 3 

(14-21) COMMON GROUNDS, GROUND WIRE FROM A/I BOX IN 20 

(BLACK) 

(22) NOT USED 

(23) NOT USED 
CHANNEL 0 

(24) EAST SENSOR INPUT FROM A/I BOX (BLUE) 
CHANNEL 1 . 

(25) WEST SENSOR INPUT FROM A/I BOX (RED) 
CHANNEL 2 
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TII. SOFTWARE DESIGN 


A. INITIAL PLANNING 

The controlling software foe the system was developed 
in three distinct phases. The first phase was the design 
of the driver routines for the system stepping motors. The 
second phase was the development of the sensor and limit 
Switch inputs. The third phase was to combine the first two 
phases into a program that would control the system in the 
desired manner. The program developed in” (mem tas mes metoe mcr 
to be capable of obtaining the input data from the 4 photo- 
diode sensors, analyzing it, and causing the appropriate 
drive motor to turn in the proper direction. The program 
must also ensure that none of the limit switches had been 


depressed, and react accoudingly Gi vene acerca 


B. DRIVE ROUTINE DESIGN 

As was mentioned previously, the Apple computer has 
several internal slots available for the installation of 
various cards. Since each drive step consists of 4 bits of 
information, a parallel I/O card was initially chosen to 
output the step information to the drive motors. Specifically 
an A488 Communication Interface card was chosen [Ref. 5]. 
This card is designed for communication between the Apple 
and digitally controlled peripherals. The card has 8 ae 


directional data lines, and 8 control lines. The data sent 
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and received by the card is by means of the ASCII character 
Baemeeee  cOntrol Lines Of the Card are used for interdevice 
synchronization and data transmission setup commands. 
Pmearem@ers were made tO utilize this card by having it output 
the ASCII character whose last four bits corresponded to the 
desired drive step. Figure 15 is an example of a program 
meveltoped for an 8 step drive routine. Lines 70 through 
Penance Setup Commands required by the card, and 180 through 
eyUeaee the dirve loop. All attempts to make this card work 
failed due to the lack of handshaking and control signals 
coming from the seeker system. 

The A/D card Sent honed in the last section was also in 
the computer, and was to be used for the conversion of the 
analog input signals into a digital form usable by the com- 
puter. The fact that the A/D card also had 16 output chan- 
nels lead to the idea that these channels could be used to 
produce the necessary drive steps. It was concluded that 
if the 4 elements comprising the step arrived at the stepping 
motor in rapid serial paecesenen rather than at the same 
instant in parallel form, the stepping motor would still 
perform satisfactorily. This would allow for the use of only 
one card for the complete system interface, rather than the 
two required if the A488 were used. 

The value of a particular A/D card output channel is 
Set by sending a number from 0 to 255 to the channel address. 
The following are some of the output voltage values corres- 


ponding to various numbers sent to the channel. 
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*#%% FROGRAM TO DRIVE SEEKER WITH HE 


HH 


10 


SP, 
ho 


3O 

40 

20 

50 

79 

BO 

90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
Zee 
250 
240 
220 
260 
2/0 
280 
270 
3500 
310 
320 
330 
340 
360 
370 
3580 


A488 PARALLEL I/0 CARD KX 
SL% = 5 
DTS = "SUN:01”" 
RS$ = "" 
FS$ = "" 
cI¢ =" 
PAY = 1 
X = 256 * SLY 
IC = 49152 + X 
SN = IC + 16 
FI = 1C + 32 
PA = IC + 96 
SO = IC + 192 
SR = 49295 + SL% * 16 
PE = 1144 + SL%IDU = 1272 + SLZ% 
EOS = 1912 + SL~% 
CALL FI: 
ie Alsieeie 
FOR T = 1 TO 16:RS$ = RS#® + “": NEXT 
FOR A = 1 TO 100 
CIS = "S,SUN":IFS% = "J": CALL SN: 
PAZ = 100: CALL PA: 
CIS = "S,SUN":FS$ = "H": CALL SN: 
PAZ = 100: CALL PA: 
CIS = "S,SUN":FS$ = "I": CALL SN: 
PA% = 100: CALL PA: 
CI$ = "S,SUN":ZFSS% = "A": CALL SN: 
PAZ = 100: CALL PA: 
CI$ = "S,SUN"IFS$ = "E": CALL SN: 
PA% = 100: CALL PA: 
CI$ = "S,SUN"ZFSS = "Ds CALL SN: 
PAY = 100: CALL PA: 
CI% = "S,SUN":FS$ = "L": CALL SN: 
PAZ = 100: CALL PA * 
CI$ = "S,SUN":FSS = "B": CALL SN? 
PAZ = 100: CALL PA: 
NEXT A 
END 


Figure 15. A488 Drive Routine 
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NUMBER Oeae Ue 


0 —SaoeVOLts 
64 mee 

26 Ora0 

me ae) 

25> +5.0 


From the table is can be seen that the card can output 
EEOme-) CO +> volts in .039 Volt increments. The values 128 
and 255 were chosen to represent the 0 and the 1 values for 
each step element. Analog output channels 1-4 were used for 
the 4 horizontal drive step elements, and 5-8 for the verti- 
cal step elements (see Table 4). To define a particular 
output from a channel, the base channel address must first 
be computed. To do this the equation M = 49,280 + (slot 
number*16) is used. Here the 49,280 is the starting address 
of all slot dependent locations in the computer, and the 
Blocenumeer L1Seanwainteger from 1 to 7, depending upon the 
slot that the card was installed in. Next a channel number 
from 0 to 15 must be added to the base address M in order 
to address a particular channel on the card. Note that the 
A/D card must be installed in slot number four if the sun 
seeker program is to work properly. Once the A/D card 
channel address (M+ CHANNEL ADDRESS) has been calculated, the 
POKE command can be used to input any value to the channel 
within the allowable range. POKE is a BASIC command which 


has the form POKE(memory address), (desired value). Figure 
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16 is an early drive routine using the POKE command. The 
slot number that the card is installed in is given in line 
10, lines 20=45 assign step element Yatues ceogenea- 4 ang 
lines 50-120 are three nested Do Loops. The inner most Do 
Loop I, calculates the memory base value M, and POKES the 
values of the indicated array element into the proper card 
channel (M+I). So the basic memory value M is incremented 
by adding the Do Loop values I (1-4) €60 16, €htis four channer 
addresses are calculated. These addresses correspond to the 
A/D card channels used to output the 4 element drive step. 
These addresses together with the desired output voltage 
values are placed in POKE commands to form the step. The 
next Do Loop in Figure 16 (the H loop), generates a four step 
loop like that of Figure 1l. Finally the G loop causes the 

4 step drive loop to be repeated 60 times. 

When this routine was run it suddenly became clear that 
great programming efficiency would be necessary if any kind 
of acceptable system response times were to be achieved. To 
make a transition of only 90 degrees with this drive routine, 
25 seconds were required. In other words to move the tracker 
from an east to a west facing position, it would take close 
to one minute. Figure 17 is the same drive routine as that 
of Figure 16, except that the M calculation was taken out oe 
the Do Loop,and calculated only once at the beginning of the 
program. This simple change reduced the 90 degree transition 


time to 12 seconds, for a savings of 13 seconds. While this 
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% HH 
HHH 


FIRST DRIVE ROUTINE USING A/D 
CARD. MEMORY CALCULATION IN LOOP *«« 


FOR 90 DEG 


(H - 


HEE REQUIRED 25 SEC. 
HHH TRANSITION. 
10 SL = 4 
20 DIM D(16) 
39 D1) = 23552 
D(2) = 128: 
DiS) =< 25 
D(4) = 128 
55 DiS). = 255: 
D(6) = 128: 
D7) = .1 28: 
D(8) = 255 
40 D(9) = 128: 
D(10) = 255: 
D«1i) = 128: 
D«?T2) = 255 
45 D(13) = 128: 
D(14) = 255: 
D(ida) = 255: 
D(16) = 128 
30 FOR G = 1 TO 60 
50 FOR H = 1 TO 4 
7O FOR I = 1 TO 4 
73 M = 49280 + (SL * 16) 
BO POKE M+ I,D(I + (4 * 
9O NEXT 
110 NEXT 
120 NEXT 
Pi guse. 6. 


PoOocconds Dieive sRourine 
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1))) 


HHH 


% HH 
HEH 


% HH 
% HH 
% HH 
% eH 
KH 


10 
15 
ZO 


“z= 
“aw! 


40 


45 


IO 


7O 
BO 


110 
120 


SECOND DRIVE ROUTINE. 


BY MOVING MEMORY CALC. 


OUTSIDE LOOP, REDUCED TRANSIT 
SEC FOR A 90 DEG 
TRANSITION. 


TIME TO 12.4 


(4 * 


ed 


SL = 4 
M = 49280 + (SL * 16) 
DIM D(15) 
D(1) = 255: 
D(2) = 128: 
D(S) = 255: 
D(4) = 128 
D(3S) = 255: 
D(6) = 128: 
D(7) = 128: 
D(8) = 255 
D(9) = 1283 
D(10) = 255: 
D(ii) = 128: 
D(12) = 255 
D(13) = 128: 
D(14) = 255: 
D(LS) = 235; 
D(16) = 128 
FOR G = i TO 60 
FOR H = 1 TO 4 
FOR I = 1 TO 4 
POKE M + I,D(I + 
NEXT 
NEXT 
NEXT 

Figure iw. 


(H 


Ow), 


% HH 
HHH 
KH 
% HH 
HHH 


12 Second Drive Routine 
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eiemgeseuwe the time in half, still more time would have to 
be cut because in actual use the drive routine would have 
logic placed between the steps, further slowing it down. 
Figure 18 shows the third drive routine developed. To 
increase execution speed the step elements were taken out of 
Bim@earray, and placed directly into the poke commands. The 
A/D card channel addresses for the 4 channels used per step 
are calculated at the beginning of the program before 
pirering the drive loop, and areéwalso placed dixectly into 
the poke commands. Variable names vice constant values were 
used in the poke commands to further increase speed. This 
is because it takes much more time to convert a constant to 
its floating point representation than it does to fetch the 
value of a variable [Ref. 6]. Due to the above modifications 
the 90 degree transition time was reduced to 4.8 seconds. 
Figure 19 is the same type drive routine as that of Figure 
18 except that a four step drive loop is used. As would be 
expected the transit time was cut in half to 2.6 seconds due 
to the larger step size, however the operation of the drive 
motor became unstable. At this speed the time to serially 
deliver the four elements comprising a step approaches the 
time between steps of 5 msec. It is therefore possible for 
Phemwimertia Of tEhevwlarger steps (1.9 vs. 0.8 degrees), to 
Saaae me TOLOL pasts thesmext intended posipzon before the 
new step is set up. The drive motor would operate normally 
for a time and then suddenly begin to oscillate about some 


beosit1on. 
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HHH 
% HH 
HHH 
% 3H HE 
% HH 
HH H 
% HH 


BO 
90 
100 
LZ 
140 
160 
180 
200 
220 
240 
260 
2000 
2100 


2200 


2500 


2400 


2900 


2600 


Figure 18. 


THIRD DRIVE DESIGN USING A/D 
HERE EACH DRIVE STEP HAS 
MEMORY ADDRESS ASSIGNED VICE 
ACCESSING AN ARRAY AS IN FIRST 
TRANSIT TIME FOR 


CARD. 


TWO DESIGNS. 


90 DEG TRANSITION WAS REDUCED 


UW) 
How oll 


TO 4.8 SEC. 


60 
1 
4 


49280 + 


DIM M(4) 


= 
pnt 
Wo 


<x 
Dp 
Wow wt ou 


LO 


FOR Hi = 


POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 


ML + 1 
ML + 2 
ML + 3S 
ML + 4 
259 
128 


mi 1s 
M2, CG; 
M3,HI: 
M4,L0 
Mt HL: 
M2. EO: 
MO 
M4,LO0 
M1,HI: 
M2,LO: 
M3,LO: 
M4,HI 
M1,l0:; 
M2, UG; 
MS. - 
M4,HI 
Miao: 
M2. rile 
M3,LO: 
M4,HI 
M1,LO: 
M2, HI: 
M3,LO: 
M4,LO0 


CSL. tee) 


1 TO EN 


2/700 


2800 


POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 


HHH 
HHH 
HHH 
% HH 
% HH 
% HH 
% HH 


M1i,LO: 
M2,HI: 
M3,HI: 
M4,LO0 

M1,LO: 
M2,LO: 
M3,LO: 
M4,HI 


4.8 Second Eight Step Drive Loop 


48 


HHH THIS DRIVE DESIGN USES ONLY Hee 
*#*#* FOUR DRIVE STEPS PER LOOP. THE *** 
#*#*% TRANSITION TIME FOR THIS DESIGN **#+* 
#**% WAS ONLY 2.6 SEC, HOWEVER THE *** 
#*#* DRIVE MOTOR OPERATION BECAME HHH 


ee UNRELIABLE. eee 
BO EN = 60 

90 DE = 1 

190 SL = 4 

120 ML = 49280 + (SL * 16) 
140 DIM M(4) 

160 Mi = ML + 1 

180 M2 = Mi + 2 

200 M3 = ML + 3 

220 M4 = ML + 4 

240 HI = 255 

250 LO = 128 


2000 FOR Hi = 1 TO EN 
2100 POKE M1,LO: 
POKE M2,HI: 
POKE M3,HI: 
POKE M4,L0 
2200 POKE M1i,LO: 
POKE M2,HI: 
POKE M3,LO: 
POKE M4,HI 
2200 POKE M1,HI: 
POKE M2,L0: 
POKE M3,LO: 
POKE M4,HI 
2400 POKE Mi,HI: 
POKE M2,LO: 
POKE M3,HI: 
POKE M4,L0 
2900 NEXT 


- Figure 19. 2.6 Second Four Step Drive Loop 
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Figure 20 is a drive routine developed touts ogaa aie 
of the fact that only one soreness oureseeeme pee mean cianges 
from one step to the neéxeein anvetgnes tees men y etc 
step element that changed was sent to the drive motor. 

This routine also proved to be highly unstable and was 
discarded. 

The eight step loop of Figure 18 was finally chosen 
for use in the main sun tracking program because of its 
speed, stability, and smoother operation. The four step 
loop even when stabilized by adding delays between the 
steps still produced a jerky drive motion, while the smaller 
0.8 degree steps of the eight step loop caused the motion to 


Smooth Gime. 


C. DESIGN OF THE SIGNAL INPUT ROUTENES 

To control the system the Apple computer must be capable 
of taking in the sensor and limit switch signals as well 
as driving the motors. To do this the PEEK command in 
conjunction with the A/D card is used. The analog voltage 
values of the signals ee delivered directly to eight channels 
of the A/D card. 

The card then changes the analog values into their 
digital equivalents for use by the computer. The range of 
digital voltage input values is the same as the output value 
range discussed earlier (0-255 digital for -5V to +5V analog). 


The PEEK command is of the form VARIABLE NAME = PEEK (A/D 
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IN THIS DRIVE DESIGN AN 
ATTEMPT WAS MADE TO TAKE eH 
ADVANTAGE OF THE FACT THAT «** 
ONLY ONE OF FOUR LEVELS CHANGE*** 
PER STEP. SO ONLY THE CHANGING**«* 
ELEMENT IS POKED EACH STEP. *** 
THIS DESIGN PROVED TO BE HHH 
COMPLETELY UNSTABLE AS A DRIVE*** 


HHH 
HHH 
HH 
% HH 
HHH 
eH 
% HH 
HHH 


% HH 


HHH ROUTINE. HEE 
390 FOR K = 1 TO 30 

400 POKE 49344, 255 

405 POKE 49345,128 

410 POKE 49346, 255 

415 POKE 49347,128 

420 POKE 49346,128 

425 POKE 49347,255 

430 POKE 49344,128 

435 POKE 49345, 255 

440 POKE 49347,128 

445 POKE 49346, 255 

450 POKE 49345,128 

450 NEXT K 

Figure 20. Drive Routine Varying Single Step Element 
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CARD CHANNEL ADDRESS). The digital value found at the indi- 
cated address™”17s assigned G6 the variable 2 Wi bien s paae 
ticular A/D card the PEEK command must be given twice in 
order to get the correct value. The first time the command 
is issued the old value stored in the channel is returned, 
the second time the new sampled value is delivered. Figure 
21 is a routine designed to input sensor and limit switch 
values, and display them on the system monitor. 

In this routine the base address M is calculated in line 
110 and incremented by the Do Loop counterm I to get the 
eight input channel addresses of the A/D card. These are the 
same addresses as the eight used for outputting the drive 
steps. The command used (PEEK or POKE) determines whether 
the particular address is used for input or output. The 
input output wiring to and from the A/D card is ven sieaee, 
separate (see Figure 14), it is only on the internal computer 
bus that the the same lines are used for input and output. 
The table below is included for a quick reference to the A/D 


card channel use. 


CARD ADDRESS CHANNEL INPUT Dat Voce 
ELEMENT 
USING SLOT 4 NUMBER USE 
49345 Gal ES He 
49 346 O2 WS HZ 
49347 hs: US H3 


2 


HEHE 
HHH 
% HH 
HHH 
% HH 
HHH 
HEHE 
HHH 
HEHE 
% HH 
HEH 


100 
119 
TiS 
129 
130 
140 
150 
160 
200 


210 


220 


400 
410 


THIS ROUTINE WAS THE FIRST *** 
ATTEMPT TO UTILIZE THE INPUT *** 
SIDE OF THE A/D CARD. ALL HEH 


SENSOR AND LIMIT SWITCH VALUES #** 


ARE OBTAINED BY USING THE DO *** 
LOOP. THE VALUES ARE THEN HHH 
OUTPUT TO THE SCREEN. THIS *** 
ROUTINE WAS LATER USED TO HHI 


OBTAIN SENSOR THRESHOLD VALUES *+*« 


FOR USE IN THE MAIN PROGRAM **+* 


DESIGN. KEK 
DIM X(8) 
M = 49280 + (4 * 16) 
HOME 
FOR I = 1 70 8 
FOR J = 1 7T0 2 
AL) =" PEBK. (M&F) 
NEXT J 
NEXT I 


VTAB 21: PRINT TABC 6) "US="X (3) " 
UL="X(7) 

VTAB 22: PRINT TABC 3) "WS="X(2)" 
ES="X¢(i)" WeL="X(6)" EL="X (5) 

VTAB 23: PRINT TABC 6) "DS="X(4)" 
DL="X (8) 

FOR A = 1 TO 100: NEXT 

GOTO 120 


PIguucm2 tw Display ROUciIne 


So 


49 348 04 DS H4 


49349 Os fi Vl 
49350 06 WL V2 
49a 07 UL ve 
49S 2 ORs) DL V4 


The J Do Loop executes the PEEK command twice for each 
of the eignt channels determined by “Ene fice e senda acs reas 
the proper value to the array variable X(I). Lines 200-220 
provide the screen output, and line 400 is a 0.1 second delay 


loop added for display clarity? 


D. DETERMINATION OF SENSOR VAEUES 

The next step in the design of the software was to 
use the display routine to determine the proper sensor thres- 
hold values for use in the sun tracking routine. With the 
routine running the sensors were exposed to a variety of 


conditions, and the values below were determined. 


CONDITION VALUE 
ANALOG DIGITAL 
Completely Dark 0 V i238 
Exposed to Desk Lamp OOS ey 130 
Facing Away From Sun on Bright Day Oi EZ a oe 
Directly at Bright Sun 2.34 188 
4 Sensors Balanced’on Bright Sun 0.47 V 140 
4 Sensors Balanced on Hazy Sun On omy P32 
4 Sensors Balanced on Cloud Covered Sun 0.08 V 30 
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From the above information it was determined that a 
@m@eeact Value to use for determining if the sun were out or 
not would be 130 or less. Limit switch values were deter- 
Tmec £O be 128 = OVert not depressed, and 255 = +5vV if | 


depressed. 


Peer bASHLIGHT FOLLOW ROUTINE 

Once the drive and display routines had been developed 
and expected sensor values had been determined, the next 
step was to combine them into a working routine. The 
Flashlight follow routine (Appendix A), was developed as an 
intermediate step before attacking the more complex sun 
tracking routine. In this routine the sensors are checked 
Continuously to see if any go above the threshold value of 
130. If any do then the appropriate drive loop is run. 
There are four eight step drive loops, one for each direction 
of travel (UP,DOWN,EAST,WEST). It should be pointed out 
that by running the loop in the reverse direction the motor 
will also run in the opposite direction. Table 5 lists the 
ergghe step loops for each direction of travel. 

At the beginning of each drive loop the four A/D card 
channels to poke the steps to are determined by adding the 
appropriate channel value to the base address. For instance 
Ll = M+5 assigns the address of channel 5 to the variable Ll, 
so that LI1-L4 have the addresses of channels 5-8. The L5 
and L6 variables are assigned the channel addresses of the 
limit switch that the system is being drivetoward, and the 


sensor that is involved respectively. Next the limit switch 
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Stee 


Sem 


STEP 


STEP 


Slee 


STER 


STEP 


STEER 


A/D CARD CHANNELS 1-4 


EAST 


1010 


1000 


1901 


0001 


O101 


TABLE 5 


EIGHT STEP DRIVE LOOPS 


HORIZONTAL MOTOR 


WEST 


0010 


0101 


0001 


1001 


1000 


1010 
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VERT ICAL 


UP 


0010 


0110 


0100 


0101 


0001 


1001 


1000 


1010 


MOTOR 


A/D CARD CHANNELS 


DOWN 


1010 


1000 


0001 


0101 


0100 


01190 


0010 


PiiemeecMcem Values are checked to be sure that both are still 
entices Li not thegloop is exited, and the program 
Berita CO tie Griginal sensor Checking loop. If both values 
aac woes within Wimits the first etwo steps of the drive 
Hoepeere Semeeto the appropriate drive motor. The limit 
switch Bnd senso are again checked, and either the loop is 
exited or two more steps are taken. This checking and 
stepping continues until the sensor goes below threshold 
(the flashlight is removed), or the system runs into the 
Seema eee lamit switch) seEach of the four drive loops 
works the same, the only difference is the address values 
assigned to L1-Lo. 

Now that all the drive loop, sensor inputs, and limit 
Switches had been successfully combined, the next step 


was to develop the sun tracking routine. 


F. SUN TRACKING PROGRAM 

The final step in the design of the controlling software 
was to develop the actual sun tracking program (Appendix 
B). Since the program listing is well remarked, only the 
main points of this program will be discussed. The program 
Semcists Of FOUr Main parts. The first 1S a tracker cali- 
bration routine, the second is a sun location routine, the 
Pim@ecmlamagsum tracking poutine, and the fourth is a cloud 
cover waiting routine. 

The calibration routine is included because the tabs 


that depress the various limit switches have a tendency to 


a 


become misaligned. This is important because degrees longi- 
tude, and degrees elevation are displayed on the screen. 

Tt the. syseeneurs no longer limited to true east and true 
west or horizontal and vertical, these output values will 

be incorrect. When the tracker is calibrated properly it 

is limited to a transition of 180 degrees between the east 
and west limit switches, and 90 degrees between the up and 
down switches. Due to the gearing between the motors and 
drive structures of the tracker, approximately 1005 steps 
are required for the east to west, and 510 for the up down 
transitions. This routine starts the tracker in an upright 
east facing position, counts the steps required to transition 
to the west facing and down positions, and then returns to 
the east facing upright start position. The step count 
values are checked and if they are outside predetermined 
limits, an appropriate message is displayed on the screen. 
The step count values obtained are alseoudivided >y Ene 
number of degrees in their particular transition to get a 
steps per degree value that will be used for degrees longi- 
tude and elevation calculations in later routines. 

It should be noticed that two vice four drive loops are 
used for the different drive requirements in the sun track- 
ing program. As can be seen in Table 5 the east and down 
drive loops are the same, as are the west and up loops. 
Only the channel numbers of the step output lines are 


different. If the step and sensor/limit switch channel 


=O 


addresses are determined in controlling logic external to 
the drive loops, and are assigned to common variables, a 
Single drive loop can be used for two directions (EAST/DOWN 
ee WESsl/UP). 

The sun location routine is used to obtain a rough lock 
GmmmerOore passing control to the sun tracking routine. 
Starting from the east facing upright position, the system 
1S moved toward the west. The up sensor values are checked 
and if they remain the same or increase the sensor is going 
toward the sun. When the values begin to decrease a counter 
is set and if the old sensor reading is less than the new 
value three times ina row, the tracker moves back to the 
position of the first decrease. If the readings are the 
same the counter stays the same, if the new reading is 
more than the last the counter is reset. These counters are 
necessary because the sensor values tend to vary by +l quite 
often. If there are three successive decreases then random 
value fluctuations can be ruled out. 

When the tracker has moved back to the point of maximum 
Sun intensity (the first sensor value decrease), it begins 
ameupwarad transition. During this transition the up and down 
values are continually checked. When their values are the 
same the sun's intensity is equal on both sensors, thus the 
tracker is locked onto the sun's elevation. Control is now 


Bae seencOeene Sum tracking routine. If lock-on is not 


Se, 


achieved in either the horizontal or the vertie@al™ tpuansmeaewc, 
an appropriate message is printed on the screen. 

The tracking routine’s Marm £Unmece1eOn 1S 9to ene sc mena & 
the UP/DOWN sensor values are the same, and that the EAST/ 
WEST sensors are also balanced. The four values do not 
necessarily have to be the same, only each pam muse) cause: 
When this is achieved then the tracker is locked onto the 
sun. When one sensor of a pal® 1S notmeguaw Eom@tne cbhe: 

a counter is set, if the sensors remain unbalanced for a 
count of five, two drive steps are taken in the direction 
necessary to rebalance the sensor pair. Again the counter 

1s necessary due to the sensor outputs tendency to vary about 
a value by +1. If clouds cover the sunjeaies antencie, 
becomes too low for the sensors to track, and control is 
passed to the cloud cover routine. 

The cloud cover routine continually checks the up sensor 

to determine if it goes back above the threshold value 
(clouds no longer cover the sunjy ey Lf Ge aees, conmener 
is returned to the tracking routine. “WE me value remains 
below threshold a counter is incremented once each second. 
At 10 minutes or a counter value of 600, control is passed 
back to the sun location routine, which places the tracker 
back in startup position and waits for the sun to reappear. 
The 10 minute limit is necessary because after prolonged 


cloud cover, the sun will move out of position and relocation 


will be necessary. 
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D t . ‘ 


remarked and 
can be traced through for program specif 
Sere S: : 
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IV. CONCLUSIONS AND RECOMMENDATIONS 


Once completed the system performed well with the new 
computer. The screen/keyboard interaction now available 
expands the possible system uses. Some possible system 
enhancements can be made. 

A clock card could’ be added to the Apple that would 
bring a real time capability to the system. By being able 
to determine the date and time, a series of calculations 
could be performed that would give the sun's location. 
Reference l in its chapter on "Terrestrial Solar Radiation," 
describes the procedure in some detail. Once latitude and 
elevation values had been calculated for the sun, the tracker 
could be placed in that position and control passed to the 
sun tracking routine. This would do away with the need for 
the sun location routine, and make the initial lock-on much 
faster. Another use would be in the cloud cover routine 
where the tracker's position could be updated by the same 
calculations. Since the tracker's position could now be 
automatically updated, the system would not have to return 
to the start up position after the lO minute cimerouc- 

Another enhancement would be to assemble the drive 
routines in order to increase drive speed. The assembled 
code would be internal to the system thus preserving the 


easier to interpret Basic code for user understanding. The 


BZ 


pepo could be delivered” to the motors much more rapidly 
eAamein tie Basic form, thus preventing the instability 
problem encountered earlier with the four step drive loop. 

Another idea would be to use the tracker as a position- 
ing device for a larger tracking system. The longitude and 
elevation position information that is now displayed on the 
screen could also be sent to a much larger device, thus 
eliminating the need for sensors on that device. Drive motor 
commands could also be sent to power amplification devices 
that would drive the larger positioning motors. 

A card could be developed and built to be placed inside 
the ee computer that would replace the circuit board 
currently inside the A/I box. This would reduce the need 
for much of the current external wiring, as the signals would 
interface the computer via the internal bus. With the 
Eimecuit DGard Out of the A/I box the power transistors could 
be relocated into a much smaller box which would be mounted 
under the tracker. This would produce a much more compact 
system. 

One last recommendation is to develop a power supply to 
deliver all the necessary voltages to the system. This would 
@omawayew2th the current requirement for three, separate 


external power supplies. 


63 


290 
300 
310 
520 
330 
340 
550 
3560 
370 
580 
390 
400 
410 
420 
430 
440 
450 


APPENDIX A 
FLASHLIGHT FOLLOW ROUTINE 


REM "MAIN ROUTINE” 

REM 

REM “FLASHLIGHT FOLLOW” 
REM “ROUTINE” 

REM 

REM “SET HIGH AND LOW" 
REM “MOTOR DRIVE VALUES" 
REM "FOR DRIVE ROUTINES" 


REM 
HI = 255 
LO = 128 
REM 


REM "SET LIMIT SWITCH AND” 
REM “SENSOR THRESHOLDS” 


REM ‘ 
THR = 130 

CO = 160 

REM 


REM "DETERMINE MEMORY" 
REM “START ADDRESS FOR" 
REM “PROGRAM USE" 

REM 

M = 49280 + (4 * 16) 

REM 

REM “CHECK SENSOR VALUES" 
REM “TO DETERMINE IF ANY" 
REM "ARE ABOVE THRESHOLD" 
REM 

FOR I 1 TO 4 

FOR J 1 TO 2 

X(I) = PEEK (M + I). 

NEXT J 

NEXT I 

REM 

REM “IF ANY ABOVE” 

REM “THRESHOLD GO TO" 

REM “APPROPRIATE DRIVE" 
REM “SUBROUTINE 


REM 

IF X(3) > = THR THEN GOTO 2000 
IF X(4) > = THR THEN GOTO 3000 
IF X(1) > = THR THEN GOTO 4000 
IF X(2) > = THR THEN GOTO 5000 
GOTO 290 

REM 
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2000 
2010 
2020 
2030 
2040 
2050 
2060 


2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 


2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
22/0 
2280 


2290 


2500 
2510 
2520 
2530 
2540 
2550 


“UP DRIVE SUBROUTINE” 


REM 

REM “INITIALIZE VALUES" 
REM "TO BE USED IN" 

REM “SUBROUTINE” 

REM 

Li=M +5: 

\2 = M+ 6: 

L3=M+7: 

L4=M+28: 

LS =M+7: 

L6=M+3 

REM 

REM “DETERMINE IF ARM" 
REM "IS AGAINST UPPER" 
REM “LIMIT SWITCH OR IF" 
REM "UPPER SENSOR IS" 
REM "STILL ABOVE THRES-" 
REM “HOLD VALUE" 

REM 

Y1 = PEEK (LS): 

Yi = PEEK (LS): 

Y2 = PEEK (L6): 

Y2 = PEEK (L6) 

REM 

REM “IF SWITCH DEPRESSED" 
REM "OR IF SENSOR BELOW" 
REM "THRESHOLD RETURN TO" 
REM "MAIN LOOP" 

REM 

IF (Yi > = CO) OR (Y2 < = THR) THEN GOTO 280 
REM 

REM "PLUG IN (POKE)”" 

REM "VALUES FOR FIRST" 
REM "TWO 0.9 DEG. STEPS" 
REM 

POKE Li,LO: 

POKE L2,LO: 

POKE L3,HI: 

POKE L4,LO0 

POKE Li,LO: 

POKE L2,HI: 

POKE L3,HI: 

POKE L4,LO0 

REM 

REM “RECHECK LIMIT" 

REM "SWITCH AND SENSOR" 
REM "VALUES" 

REM 

Yi = PEEK (L5): 

Yi = PEEK (LS): 
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2360 
2370 
2380 
23970 
2400 
2410 


2420 


2430 
2440 
2450 
2460 
2470 


2480 
2490 
2000 
2910 
2020 
2950 


2040 


20900 
2360 
2570 
2 080 
22970 


2600 
2610 
2620 
2630 
2540 

2650 


~< 
T) NO 
a~ i iil 


~< 
N 
a wu ud 


~< 
N 
~ Wu ue i 


Yl > = 


Yio = 


Yio-v = 


PEEK 
PEEK 


(LG) & 

(LS) 

CO) OR (Y2 < = THR) THEN GOTO 280 
“MOTOR SETPS THREE" 

“AND FOUR" 


Li,LO: 
L2,HI: 
L3, LO: 
L4,L0 
Li,LO: 
L2,HI: 
L3,LO: 
L4,HI 


"“RECHECK THRESHOLD" 
"VALUES" 


(LS) 5 
(LS): 
(L6) & 
(LS&) 
CO) OR 


PEEK 
PEEK 
PEEK 
PEEK 
(Y2 < = THR) THEN GOTO 280 
“MOTOR STEPS FIVE" 

“AND SIX" 


Li,LO: 
L2,LO: 
L3,LO: 
L4,HI 

Li,HI: 
L2,LO: 
L3,Lo: 
L4,HI 


"RECHECK THRESHOLD" 
"VALUES" 


PEEK 
PEEK 
PEEK 
PEEK 


(LS) 5 
(ES): 
(LG&) :& 
(L6) 
CO) OR (Y2 < = THR) THEN GOTO 280 
“MOTOR STEPS SEVEN" 


“AND EIGHT" 


L2,L0: 
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26560 


2670 
3000 
5010 
5020 
5030 
35040 
3050 
5060 


3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 


5160 
3170 
3180 
35190 
5200 
5210 
S220 
3230 
5240 
S200 
52650 
52/70 
5280 


3290 


. 
Huw wot a 
423 33 
++ ett 


L3,LO: 

L4,LO 

Li,HI: 

L2,LO: 

L3,HI: 

L4,LO 

2060 

"DOWN DRIVE ROUTINE" 


“INITIALIZE VALUES" 
"TO BE USED IN" 
“SUBROUT INE" 


as 
&5 
Ts 
8: 
8: 
4 


“DETERMINE IF ARM" 
"IS AGAINST DOWN” 


REM “LIMIT SWITCH OR IF" 
REM "DOWN SENSOR IS" 

REM “STILL ABOVE THRES-—" 
REM “HOLD VALUE" 

REM 

Yi = PEEK (LS): 

Y1 = PEEK (LS): 

Y2 = PEEK (L646): 

Y2 = PEEK (L6) 

REM 

REM “IF SWITCH DEPRESSED" 
REM “OR IF SENSOR BELOW" 
REM “THRESHOLD RETURN TO" 
REM “MAIN LOOP" 

REM 

IF (Y1 > = CO) OR (Y2 < = THR) THEN GOTO 280 
REM 

REM “PLUG IN (POKE)" 

REM “VALUES FOR FIRST" 
REM “TWO 0.9 DEG. STEPS" 
REM 

POKE L1,HI: 

POKE L2,LO: 

POKE L3,HI: 

POKE L4,L0 

POKE L1,HI: 

POKE L2,L0: 

POKE L3,LO0: 

POKE L4,LO0 


o/ 


353500 
3310 
3320 
3330 
33540 
3350 


3360 
33570 
5380 
3390 
35400 
5410 


3420 


3430 
3440 
5450 
5460 
5470 


3480 
35490 
5000 
5310 
5920 
5350 


5540 


5550 
5560 
5970 
5580 
5390 


REM 

REM "“RECHECK LIMIT" 

REM "SWITCH AND SENSOR” 
REM “VALUES" 

REM 

YI = (“FEEK (LS); 

Yi = PEEK (LS); 

YZ = FEER (L4): 

Y2 = FEEK (L6) 

IF (Yi > = CO) OR (Y2 < = THR) THEN GOTO 280 
REM 

REM “MOTOR STEPS THREE” 
REM "AND FOUR" 

REM 

PORE LIHAT: 

PeKE 2,0; 

POKE L3,LOQ: 

POKE L4,HI 

POKE Li,LOQ: 

POKE L2,LQ: 

PFOKE Ee, EG: 

POKE L4,HI 

REM 

REM "RECHECK THRESHOLD" 
REM "VALUES" 

REM 

Yi = PEEK (LS): 

Y1 = PEEK (LS): 

Y2 = PEEK (L6): 

Y2 = PEEK (L6) 

IF (Yi > = CQO) OR (Y2 < = THR) THEN GOTO 280 
REM 

REM "MOTOR STEPS FIVE" 
REM "AND SIX" 

REM 

POKE L1,LO: 

FOKE L2ahi: 

POKE L3,LO: 

POKE L4,HI 

POKE L1,LO: 

POKE L2,HI:; 

POKE LS, LO: 

POKE L4,LO 

REM 

REM "“RECHECK THRESHOLD" 
REM "VALUES" 

REM 

Yi = PEEK (LS): 

Yi = PEEK (LS): 

Y2 = PEEK (L6): 

Y2 = PEEK (L646) 
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5600 
5610 
3620 
5630 
5640 
3650 


3660 


56/0 
4000 
4010 
4020 
4030 
4040 
4050 
4060 


4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 


4160 
4170 
4180 
4190 
47200 
4210 
4220 
4250 
4240 
4250 
4260 
42/70 
47280 


IF (Yi > = CO) OR (Y2 < = THR) THEN GOTO 280 
REM 

REM “MOTOR STEPS SEVEN" 
REM "AND EIGHT" 

REM 

POKE L1i,LO: 

POKE L2,HI: 

POKE L3,HI: 

POKE L4,LO © 

POKE Li,LO: 

POKE L2,LO: 

POKE L3,HI: 

POKE L4,LO 

GOTO 3060 

REM “EAST DRIVE ROUTINE" 
REM 

REM “INITIALIZE VALUES" 
REM “TO BE USED IN" 

REM “SUBROUTINE” 

REM 

Li==-M™ + is 

L2 =M + 2: 

Coe= M+ S: 

L4=M + 4: 

as = + 5: 

iGe= Mo eo{ 

REM 

REM "DETERMINE IF ARM" 
REM "IS AGAINST EAST” 
REM “LIMIT SWITCH OR IF” 
REM "EAST SENSOR IS" 

REM “STILL ABOVE THRES-" 
REM "HOLD VALUE" 

REM 

Yi= PEEK (L5): 

Yi = PEEK (L5): 

Y2 = PEEK (L6): 

Y2 = PEEK (L6) 

REM 

REM “IF SWITCH DEPRESSED" 
REM "OR IF SENSOR BELOW" 
REM "THRESHOLD RETURN TO" 
REM “MAIN LOOP” 

REM 

IF (Yi > = CO) OR (Y2 < = THR) THEN GOTO 280 
REM 

REM “PLUG IN (POKE)" 

REM “VALUES FOR FIRST” 
REM "TWO 0.9 DEG. STEPS" 
REM 

POKE Li,HI: 


Oe 


4290 


43500 
4310 
4320 
4330 
4340 
4350 


4360 
4370 
4380 
4390 
4400 
4410 


4420 


4430 
4440 
4450 
4440 
4470 


4480 
4490 
4500 
4510 
4520 
43530 


4540 


43550 


POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
REM 
REM 
REM 
REM 
REM 
Yi 

Ya 

Y2 

Y2 

LE 

REM 
REM 
REM 
REM 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
REM 

REM 

REM 


a~ it t Wet 


< 
NJ 
| 


L2,L0: 
L3,HI: 
L4,LO 

Li,HI: 
L2,LO: 
L3,LO: 
L4,L0 


“RECHECK LIMIT" 
"SWITCH AND SENSOR" 
"VALUES" 


PEEK 
PEEK 
PEEK 
PEEK 


(LS): 
(LS) > 
(L6) = 
(L&) 


Yi > = 


CO) OR (Y2 < = THR) THEN GOTO 280 
“MOTOR STEPS THREE" 


“AND FOUR" 


Li,HI: 
L2,LO0: 
L3,LO: 
L4,HI 

L1,LO: 
L2,LO: 
L3,Lo: 
L4,HI 


“RECHECK THRESHOLD" 
"VALUES" 


PEEK 
PEEK 
PEEK 


(LS): 
(LS) ¢ 
(LS) & 


(Yi > = 


PEEK (L6) 


CO) OR (Y2 < = THR) THEN GOTO 280 
“MOTOR STEPS FIVE" 


"AND SIX" 


Li,Lo: 
L2,HI: 
L3,Lo: 
L4,HI 

Li,LO: 
Deer 
L3,LO: 
L4,LO0 


rat 


4560 
4370 
4580 
4590 


4600 
4610 
4620 
4630 
4640 
4650 


4660 


4670 
3000 
3010 
3020 
2030 
3040 
3050 
9060 


3070 
2080 
2090 
2100 
31190 
2120 
3130 
2140 
2150 


3160 
3170 
3180 
2190 
2200 
3210 


REM “RECHECK THRESHOLD" 
REM "VALUES" 

REM 

Y1 = PEEK (LS): 

Y1 = PEEK (L5): 

Y2 = PEEK (L6): 

Y2 = PEEK (L646) 

IF (Y1 > = CO) OR (Y2 < = THR) THEN GOTO 280 
REM 

REM “MOTOR STEPS SEVEN" 
REM "AND EIGHT" 

REM 

POKE L1,LO0: 

POKE L2,HI: 

POKE L3,HI: 

POKE L4,L0 

POKE L1,LQ: 

POKE L2,LO: 

POKE L3,HI: 

POKE L4,L0 

GOTO 4060 

REM “WEST DRIVE ROUTINE" 
REM 

REM “INITIALIZE VALUES" 
REM "TO BE USED IN" 

REM "SUBROUTINE" 

REM 

Li1=M +1: 

L2 =M + 2: 

LS =M + 3: 

L4=M + 4: 

iS =~ M + 63 

L6 = M+ 2 

REM 

REM “DETERMINE IF ARM" 
REM "IS AGAINST WEST” 
REM "LIMIT SWITCH OR IF" 
REM "WEST SENSOR IS" 

REM “STILL ABOVE THRES-" 
REM “HOLD VALUE" 

REM 

Y1 = PEEK (L5): 

Y1 = PEEK (L5): 

Y2 = PEEK (L6): 

Y2 = PEEK (L646) 

REM 

REM “IF SWITCH DEPRESSED" 
REM "OR IF SENSOR BELOW" 
REM “THRESHOLD RETURN TO" 
REM "MAIN LOOP"  . . 
REM 


ral 


3220 
3250 
3240 
3250 
3260 
3270 
3280 


3290 


D300 
33510 
3320 
33350 
53340 
3300 


3560 
3370 
3580 
3390 
3400 
3410 


7420 


3430 
3440 
3450 
3460 
3470 


3480 
3490 
wI00 
3310 
3020 


S530 __ 


IF (Y1 > = CO) OR (Y2 < = THR) THEN GOTO 280 
REM 

REM “PLUG IN (POKE)" 
REM "VALUES FOR FIRST" 
REM “TWO 0.9 DEG. STEPS" 
REM 

POKE Li,LO: 

POKE L2,LO: 

POKE L3,HI: 

POKE L4,LO 

POKE L1i,LO: 

POKE L2,HI: 

POKE L3,HI: 

POKE L4,LO0 

REM 

REM "“RECHECK LIMIT" 

REM "SWITCH AND SENSOR" 
REM "VALUES" 

REM 

Yi = PEEK (LS): 

Y1 = PEEK (LS): 

Y2 = PEEK (L64): 

Y2 = PEEK (L646) 

IF (Y1 > = CO) OR (Y2 < = THR) THEN GOTO 280 
REM 

REM "MOTOR SETPS THREE" 
REM "AND FOUR" 

REM 

POKE Li,LO: 

POKE L2,HI: 

POKE L3,LO: 

POKE L4,LO 

POKE Li,LO: 

POKE L2,HI: 

POKE L3,LO: 

POKE L4,HI 

REM 

REM “RECHECK THRESHOLD" 
REM "VALUES" 

REM 

Yi = PEEK (LS): 

Y1 = PEEK (LS): 

Y2 = PEEK (L4): 

Y2 =- PEEK (L646) 

IF (Yi > = CO) OR (Y2 < = THR) THEN GOTO 280 
REM 

REM "MOTOR STEPS FIVE" 
REM "AND SIX" 

REM 

POKE Li,LO: ; 
POKE L2,LO: 


2 


2540 


I050 
2V60 
30/790 
3 YBO 
3070 


2600 
2610 
3620 
3630 
7640 
3650 


2660 


26/0 


=< 
NJ 
nou uw tl 


(Yi > = 


L3,LO: 
L4,HI 
Li,HI: 
L2,L0: 
L3,LO: 
L4,HI 


“RECHECK THRESHOLD" 
"VALUES" 

PEEK (LS): 

PEEK (LS): 

PEEK (L6): 

PEEK (L6) 

CO) OR (Y2 < = THR) THEN GOTO 280 
“MOTOR STEPS SEVEN" 

“AND EIGHT” 


Li,HI: 
12,L0: 
L3,LO: 
L4,LO0 
Li,HI: 
L2,LO: 
L3,HI: 
L4,Lo 
S060 


a3 


100 
1190 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
250 
240 
250 


2/0 
280 
290 
500 
3510 
520 
330 
540 
541 
S42 
S435 
544 
345 
3546 
3547 
3530 
3560 
35790 
580 
390 
400 
410 
420 
430 
440 
450 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
HOME 
REM 
REM 
REM 
VTAB 
VTAB 
VTAB 
VTAB 
VTAB 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
M= 
REM 
REM 
REM 
REM 
CO = 
REM 


APPENDIX B 


MAIN SUN TRACKING PROGRAM 


I HEHEHE TEE HEHEHE HEHE EEE ETE HEHEHE ETE TE HEHE TE HEE HEE EEE HE HEHE HH HEHE 
*#% THE FOLLOWING IS A PROGRAM FOR SUN ** 
*#% TRACKING. IT CONSISTS OF FOUR MAIN ** 
%#% PARTS. (1) A SYSTEM CALIBRATION HH 
*#% ROUTINE (2) A SUN LOCATION ROUTINE ** 
%#% (3) A SUN TRACKING ROUTINE (4) AND ** 
** A CLOUD COVER WAIT ROUTINE. ee 
MERE RHEE EER HE EE HERE RE RRR ER ER HEE ERE EE 


HH HH HE HE HE HE HE HEH HEE HE HEE HE HE HE HE HE HE HE HE HE HE HE HE HE HE HE HE HE HE HE HE HE EE HE 


HHH CALIBRATION ROUTINE HEE 
ee 


*%#*#% CLEAR SCREEN *** 


%#% PRINT HEADER ON SCREEN + 


>: PRINT “THE NUMBER OF 0.9 DEG. STEPS REQUIRED" 
>: PRINT “TO DRIVE THE SYSTEM THROUGH A COMPLETE” 
> PRINT “HORIZONTAL OR VERTICAL TRANSITION ARE" 
>: PRINT “COUNTED AND USED TO DETERMINE TRACKING” 
>: PRINT “POSITION, AND CHECK SYSTEM CALIBRATION" 


*#*% DUE TO GEARING DOWN OF HEH 
#*#% THE DRIVE MOTORS APPROX HEX 
%##%# 500 O.9DEG STEPS ARE tial 


*#*%*% REQUIRED TO TRANSITION 9O *«+* 
*%*#% DEGREES. HHH 


%#*#% CALCULATE MEMORY LOCATION *«*«+« 
**#* POINTER FOR A/D CARD. HHH 
49280 + (4 * 16) 


e#% SET VALUE TO DETERMINE IF **«+* 
%#*% LIMIT SWITCH IS DEPRESSED *** 


160 


74 


460 
470 
480 
490 
200 
27190 
320 
350 
240 
30 
260 
3790 
280 
370 
600 
610 
620 
630 
540 
650 
6550 
670 
680 
590 
7Q0 
710 
720 
750 
740 
73590 


760 
770 
780 
790 
B00 
810 
B20 


B30 
B40 
B50 
860 


REM *** SET VALUES FOR STEP POKES 
REM *** TO A/D CARD,127=0V 255=5V 
REM 

HI = 2 
LO = 1 
REM 
REM ***x INITIALIZE COUNTERS TO BE 
REM *** USED IN SUN LOCATION RTN. 
REM 

AB = O:AC = O 

REM 


vo 
Ze, 


% HH 
HEH 


HHH 
HHH 


REM *#* THESE TWO CALLS INITIALIZE*** 


REM *** THE SEEKER BY PLACING IT 
REM **% IN AN UPRIGHT EAST FACING 
REM *x*%* POSITION 

REM 


VTAB 8: PRINT "PLACE IN UPRIGHT POSITION" 


REM 


HH HE 
% HH 
% HH 


REM **#%* PASS TO DRIVE ROUTINES THEx** 


REM **#%* MEMORY LOCATIONS OF THE 
REM *** A/D CARD TO POKE STEP 
REM *** VALUES TO (L1-L4). ALSO 
REM *** MEMORY LOCATION OF LIMIT 
REM *** SWITCH TO CHECK FOR 

REM «*#* DEPRESSION AT END OF RUN 
REM *** (LS), AND PASS VALUE TO 
REM *** TO TELL ROUTINE IF IT IS 
REM **#%* DRIVING UP OR EAST (L6) 


Li = M + 5S: 
L2=M + 6&6: 
LS = M + 73 
L4 = M + 8: 
tS = ™M + 8: 
Lé = 1 

GOTO 18190 
REM 


REM *** DRIVE TO EAST. L1i-L& SAME 
REM x*** USE AS ABOVE. 

REM 

PRINT “SET FACING EAST 

1: 

2s 

os 

4° 

Je 


meNERTIIOD 


oO 
~ ++ +44 
° 


REM 


% HH 
% HH 
% HH 
HHH 
HHH 
HEE 
HH 
HH HE 
HEH 


HHH 
HH HK 


REM *** THESE TWO CALLS CAUSE THE *** 


REM **%*« NUMBER OF STEPS FOR ONE 


7S 


HH HE 


B70 
880 
B90 
900 
9190 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 


1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 


REM **# 


TRANSITION WEST AND ONE 


REM #*#* TRANSITION TO THE DOWN 
REM *#*#* POSITION TO BE COUNTED 
REM 

VTAB 8: PRINT "WEST COUNTING RUN” 
REM 

REM *#** EAST COUNTING RUN. PASS 
REM ##* TO DRIVE ROUTINE STEP 

REM *#* POKE MEMORY LOCATIONS 
REM #** (Li-L4), LIMIT SWITCH (LO) 
REM ##* WHERE TO RETURN WHEN 
REM **%* FINISH COUNTING RUN (L6) 
REM ###% AND INDICATOR OF WEST OR 
REM **# UP COUNTING RUN (L7), 
REM 

li=M™ + 1:5 

L2 =M + 2: 

L3 = M + 3S: 

L4 =™M™ + 4: 

i135 = M + &: 

[6 = 1: 

L7 = 200 

GOTO 2320 

REM 

REM *## PRINT QUT NUMBER OF STEPS 
REM ##*#* FOR EAST TO WEST TRANSI- 
REM ### TION (LN), AND STEPS PER 
REM *** DEGREE (LD). 

REM 

VTAB 14:2 PRINT “LONGITUDE COUNT=" 
LD = LN / 180 

REM 


REM ### LIMIT SCREEN DISPLAY TO 
REM **#* TWO DECIMAL POINT ACCURACY *** 


HH HE 
% 
% % 


% HE 
HH 
HHH 
HH HE 
HE 
% HH 
% HE 
% HE 


HH 
HH 
tH 
HH 


LN 


% HH 


HEE 
HEH 


HHH 
HH 


REM 

LD = INT (LD * 100 + .5) / 100 
VTAB 18: PRINT “STEPS/DEG. LONG="LD 
REM 

REM **##« COUNTING RUN FROM UPRIGHT 
REM *** TO DOWN POSITION 

REM 

VTAB 8: PRINT “VERT COUNTING RUN" 
REM 

REM **#%* PASS SAME INFORMATION AS 
REM *#*« AS ABOVE TO DRIVE ROUTINE 
REM 

GE = hia o- 

l2=M™ + 6: 

[LS = M + 7; 

l4 = M+ 8: 

[IS = M + 75 


76 


Bar = 2: 


7 155 
1280 GOTO 2320 
1290 REM 
1300 REM *** PRINTOUT SAME AS ABOVE HEX 


1310 REM **#* FOR STEPS FROM UP TO DOWN x««* 
1320 REM *** POSITION (LT), AND STEPS *«* 
1330 REM *** PER DEGREE (LE). HHH 
1340 REM 

1350 VTAB 15: PRINT "LATITUDE COUNT ="LT 
1360 LE = LT / 90 


1370 LE = INT (LE * 100 + .5) / 100 

1380 VTAB 19: PRINT "STEPS/DEG. LAT ="LE 
1390 REM 

1400 REM *** THESE TWO CALLS RETURN HEX 


1410 REM **#* THE SEEKER TO THE UPRIGHT *** 
1420 REM **#* AND EAST FACING POSITION *** 
1430 REM **%* BEFORE GOING TO THE SUN eH 


1440 REM *** LOCATION ROUTINE HEH 
1450 REM 
1460 VTAB 8: PRINT “RETURN TO START POSITION” 
1470 Li =M + 3S: 
L2=M + 6: 
LS =~ M+ 75 
L4=M + 8: 
iS = M™ + 8: 
L6é = 3 
1480 GOTO 1810 
1490 t1=M + 1: 
L2 = M + 2: 
LS = M + 3: 
L4=M + 4: 
Soae— M +°S5: 
L6 = 4 
1500 GOTO 1810 
1510 HOME 
1520 REM 


1530 REM *** DETERMINE IF THE NUMBER HEX 
1540 REM #** OF STEPS FOR EACH TRANSI-— *** 
1550 REM ##*« TION IS OUT OF LIMITS, IF «** 
1560 REM *#* IT IS PRINT APPROPRIATE HHH 
1570 REM *** ERROR MESSAGE. HEX 
1580 REM 
1590 IF (LN < 990) OR (LN > 1020) THEN VTAB 10: 
PRINT "HORIZONTAL PARAMETERS QUT OF RANGE": VTAB 11: 
PRINT "CHECK LIMIT SWITCH ALLIGNMENT”: GOTO 1660 
1600 IF (LT < 490) OR (LT > 320) THEN VTAB 12: 
PRINT "VERTICAL PARAMETERS OUT OF RANGE”: VTAB 13: 
PRINT “CHECK LIMIT SWITCH ALLIGNMENT": GOTO 1660 
1610 GOTO S090 
1620 REM 5 


ve) 


1630 REM *** DETERMINE IF WANT TO Se 

1640 REM *** CONTINUE WHEN OUT OF LIMIT*««« 

1650 REM 

1660 VTAB 15: INPUT “DO YOU WANT TO CONTINUE? (Y/N) "5K 
1670 IF KS "N" THEN PRINT CHRS (4)35 "RUN HELLO" 
1680 IF KS "¥" THEN GOTQ S090 


1690 REM 

1700 REM **#* DRIVE ROUTINE FOR EAST AND**«« 
1710 REM *«** UP INITIALIZATION. HH 
1720 §=6REM 

173Q 60©>REM 

1740 REM 

1750 REM *** CHECK LIMIT SWITCH AS HEH 
1760 REM *** DETERMINED BY LS, TO HHH 
1770 REM *** SEE IF SEEKER ARM IS te 
1780 REM *** AGAINST IT. IF IF IS JUMP *«x* 
1790 REM *** QUT OF THE ROUTINE. HE 
1800 REM 

1810 Y1 = PEEK (LS):Y1 = PEEK (LS) 

1820 IF Y1 > CO THEN GOTO 2220 

1830 REM 

1840 REM *** VALUES TO POKE INTO D/A eH 
1850 REM ***« CARD MEMORY LOCATIONS He 


1860 REM *** (L1-L4) TO PRODUCE MOTOR «xx 
1870 REM *** STEP. REPEAT FOR 8 STEP HHH 


1880 REM *** CONTINUOUS LOOP. ee 
1890 REM 
1900 POKE Li,HI: 
POKE L2,LO0: 
POKE L3,HI: 
POKE L4,LO 
1910 Yi= PEEK (L5): 
Yi = PEEK (L5) 


1920 IF Y1 > CO THEN GOTO 2220 
1930 POKE L1,HI: 

POKE L2,LO0: 

POKE L3,LO: 

POKE L4,L0 
1940 Y1 = PEEK (L5): 

Yi = PEEK (L5) 
1950 IF Yi > CO THEN GOTO 2220 
1960 POKE Li,HI: 

POKE L2,L0: 

POKE L3,LO: 


POKE L4,HI 
1970 Yi= PEEK (L5): 
Y1 = PEEK (L5) 


1980 IF Y1 > CO THEN GOTO 2220 
1990 POKE L1,LO: 

POKE L2,LO: 

POKE L3,LO: 


78 


2000 


2010 
2020 


2030 


2040 
2050 


2060 


2070 
2080 


2090 


2100 
2110 


2120 
2130 
2140 
2150 
2160 
Zi7 oO 
2180 
2190 
2200 
2210 
2220 
2250 
2240 
2290 
2260 
22/0 
2280 
2290 
2500 
2310 
2320 
2550 


POKE L4,HI 


Y1 
Y1 


PEEK 
PEEK 


12S): 
(LS) 


IF Yi > CO THEN 


POK 
POK 
POK 
POK 
Ye 
Y1 


E 
E 
E 
S 


Li,LO: 
L2,HI: 
L3,LO: 
L4,HI 
PEEK 
PEEK 


(LS) > 
ceo? 


IF Y1 > CO THEN 


POK 
POK 
POK 
POK 
Y1 
Yi 


E 
E 
e 
E 


L1,LO: 
L2,HI: 
L3,LO: 
L4,LO0 
PEEK 
PEEK 


(LS): 
(LS) 


IF Y1 > CO THEN 


POK 
POK 
POK 
POK 
Y1 
Y1 


E 
S 
Ee 
Ee 


L1,LO: 
L2,HI: 
L3,HI: 
L4,LO 
PEEK 
PEEK 


(LS) > 
(LS) 


IF Yi > CO THEN 
POKE L1i,LO: 
POKE L2,LO: 
POKE L3,HI: 
POKE L4,LO 


REM 


GOTO 2220 


GOTO 2220 


GOTO 2220 


GOTO 2220 


REM *#** RETURN TO STEP ONE 


REM 


GOTO 1810 


REM 
REM 
REM 
REM 
REM 
REM 


ON L& GOTO 810,910, 1490,1510 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
NY = 
REM 


KHE 
HEE 
HEE 
HEE 


e*#% WEST AND DOWN COUNTING 


RETURN TO THE CORECT 

PORTION OF THE CONTROL 
SECTION, AS DETERMINED 
BY L& 


x#*#*% DRIVE ROUTINE. 


ee% INITIALIZE COUNTER (N) 


0 


Le 


KEE 


HEHE 
HEE 
HEE 


HH 
HHH 


HEE 


2340 
2350 
2560 


2370 
2580 
23590 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 


2480 


2490 


2900 
2910 
2020 
2950 
2040 
2000 
2060 
20/70 
2080 
2070 
2600 
2610 
2620 
2650 
2640 
2650 
26560 
2670 


2680 
2690 


2/700 


2/710 


REM **« STEP ONE OF EIGHT 
REM 
POKE L1i,LO: 


POKE L2Z,LO: 

POKE L3S,HI: 

POKE L4,L0 

REM 

REM **# INCRIMENT COUNTER 

REM 

N=N + 1 

REM 

REM *## PRINT COUNT VALUE AND 
REM *#%*% ASSIGN IT TO CORRECT 
REM *** VARIABLE AS DETERMINED 
REM *** BY L7 

REM 

IF LZ = 200 THEN VTAB 10: 
PRINT “HORIZCT="N:LN = N 

IF LZ = 155 THEN VTAB 12:5 
PRINT “VERTCT ="NSLT = N 


POKE Li,LO: 
POKE L2,HI: 
POKE L3,HI: 


HHH 


HH 


% HH 


HHH 
HHH 


POKE L4,L0 

REM 

REM #«*« CHECK THE LIMIT SWITCH ee* 
REM **«* ASSIGNED BY L5. IF THE ee 
REM *** SEEKER IS AGAINST IT EXIT ««+« 
REM *** THE DRIVE ROUTINE. HH 
REM **« NOTE:THE TASKS ARE DIVIDED*«« 
REM *** AND ASSIGNED TO EVERY Hee 
REM **« OTHER STEP FOR DRIVE SPEED«+«+« 
REM 

Yi = PEEK (L5) 

Yi = PEEK (L5) 

IF Yi > = CO THEN GOTO 3050 
N=N+1 

REM 


REM *#+# CONTINUE FOR EIGHT STEP 
REM x*#+ LOOP. 

REM 

POKE L1,LO: 

POKE L2,HI: 

PORE LS jeu: 


POKE L4,LO 

N=N+1 

IF L7 = 200 THEN VTAB 10: 
PRINT "HORIZCT="N:LN = N 
IF L7 = 155 THEN VTAB 12: 
PRINT "VERTCT ="N:LT = N 


POKE L1i,LO: 


80 


% HE 
KH 


2720 
2730 
2740 
2/750 
2760 


2/770 
2780 


2790 


2800 


2810 
28320 
2830 
2840 
2850 


2860 
2870 


2880 


2890 


29700 
2710 
2920 
2950 
29740 
2950 
2760 
2970 
2980 
2990 
3000 
5010 
5020 
35030 


POKE 
POKE 
POKE 
Yi = 
Y1 = 
TF Y 
yy = 

POKE 
POKE 
POKE 
POKE 
yn 

Pee 
PRIN 
ee 
PRIN 
POKE 
POKE 
POKE 
POKE 
Y1 = 
Y1 = 
te Y 
i= 

POKE 
POKE 
POKE 
POKE 
= 

PPL 
PRIN 
IF L 
PRIN 
POKE 
POKE 
POKE 
POKE 
Y1 = 
Yi = 
IF Y 
N = 

REM 

REM 

REM 

GOTO 
REM 

REM 

REM 

REM 

REM 

REM 


L2,HI: 
L3,LO: 
L4,HI 
PEEK (LS) 
PEEK (L5) 
1 > = CO THEN GOTO 3050 
N+ 1 
L1,LO: 
L2,LO: 
Ps ee 
L4,HI 
N+ 1 
7 = 200 THEN VTAB 10: 
T "HORIZCT="N:LN = N 


7 = 155 THEN VTAB 12: 
T "VERTCT ="NSLT = N 
Li,HI: 
ly gl = 
ES, Eo. 
L4,HI 
PEEK (LS) 
PEEK (LS) 
1 > = COQ THEN GOTO 3050 
N+ i 
Aral be 
2, _G:; 
ws, EO: 
L4,Lo 
N+ 1 
7 = 200 THEN VTAB 10: 
T "HORIZCT="N2LN = N 
7 = 155 THEN VTAB 12: 
T "VERTCT ="N3LT = N 
1,71 : 
L2,LOQO: 
_3, Ae: 
L4,;LO0 
PEEK (LS) 
PEEK (L5) 
1 > = CO THEN GOTO 3950 
N + 1 
*##%* RETURN TO STEP ONE 


23560 


HH 
HE 
% 
% HH 
% 


WHEN WEST COUNTING RUN 
COMPLETE SWITCH TO DOWN 
COUNTING RUN. WHEN COUNT 
RUNS COMPLETE RETURN TO 
EAST/UP START POSITION 


81 


% % 


HE 
HE 
%-% 
% HE 
% 


3040 
3050 


3000 
V005 
‘3010 
VOLS 
3020 
7025 
7030 
VOSS 
3040 
2045 
3050 
3055 
3060 
3065 
3070 
2075 
2080 
2085 
3090 
3095 
31900 
3105 
9110 
vils 
3120 
3125 
3150 
3135 
3140 
3145 
3150 
93155 
2160 
3165 
2168 
9170 
3175 
7180 


2185 
2190 
3195 
2200 
3205 
3210 
3215 


REM 


ON L& GOTO 1100,1250 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


ow we tt 


FETE HEE HE HEE HE HE HE EE HE HE HE HEHE HE HE HE HE HE HE HE HE HE HE HE HE HE EH HE EE 


Ht 


SUN LOCATION ROUTINE 


ee 


FEM HHH HEHE HEHE HEHEHE HEHEHE HE HE HE HEE EH HE EE HE HE HE EHH EHH 


HHH 


HHH 
% HH 
HHH 
HHH 
HHH 


THIS ROUTINE LOCATES THE 
SUN IN A GENERAL AREA AND 
PASSES CONTROL TO THE SUN 
TRACKING ROUTINE FOR FINE 
ADJUSTING AND LOCK ON 
FOLLOWING. 


INITIALIZE COUNTERS 


QO 

O 

*#*%% JF FAIL TO LOCATE THE SUN 
#*#*% AFTER TWO TRYS GO TO 
*%%#% ERROR MESSAGE. 
B = 2 GOTO 6025 

AB + Ii 

2: PRINT "THIS ROUTINE FINDS 
3: PRINT “AND PASSES CONTROL 
43 PRINT "ROUTINES" 

*x*%*% A/D CARD MEMORY LOCA- 

*x*%%* TIONS FOR DRIVE STEPS 
M+iis 

M+ 2: 

n+ 3 

M+ 4 

*#%% CHECK UPSENSOR VALUE IF 
**%* GREATER THAN CUTOFF VALUE 
**x* 60 TO SUN LOCATION LOGIC 
*#* IF NOT CONTINUE TO LOOP 

PEEK (M + 3): 


SZ 


% HH 
HHH 
% HH 
% HH 
% HH 
HEH 


HHH 


HHH 
HHH 
HH 


THE SUN’S POSITION" 
TO SUN TRACKING" 


HHH 
HHH 


HHH 
HHH 
HHH 
HHH 


5220 
5225 
5230 
ea 
5240 
5245 
5250 
5255 
5260 
5265 
5270 


32/759 
3280 
9285 
3290 
9295 
3300 


3305 


3310 
9515 
I 320 
IS25 
3330 
9335 
3340 
0345 
ISO 
ISI9 
3360 
9365 
3370 
3375 
2380 
3385 
9390 


ISIS 
3400 
2405 
2410 
3415 
3420 
7425 


GZe— FEEK (M + 3) 

IF C2 > = 130 THEN GOTO S250 

VIAB 6: PRINT "US="C2 

GOTO 5215 

REM 

REM «++ SUN LOCATION LOGIC HH 
REM 

VTAB 9: PRINT “EAST=0 DEG: SOUTH=90 DEG: WEST=180 DEG 
REM 

REM *##% FIRST STEP * Ee 
REM 

POKE Li,LO: 

POKE L2,LO: 

PO@KE LS,HI: 

POKE L4,L0O 

REM 

REM *#% CHECK UPSENSOR (C2), AND *** 
REM **%* WEST LIMIT SWITCH (LW), HHH 
REM *#% VALUES. as? 
REM 

C2 = PEEK (M + 3)5 

C2 = PEEK (M + 3) 

LW = PEEK (M + 6)5 

LW= PEEK (M + 6) 

REM 

REM x+*% PRINT UPSENSOR VALUE ON HHH 
REM *#+ SCREEN, ENSURE SUN BRIGHT *««* 
REM +##% ENOUGH (C2>131), THAT ARM «+ 
REM *** IS NOT AGAINST WEST LIMIT *** 
REM *+#% SWITCH (LW<160), AND HHH 
REM **% INCRIMENT DEGREES HORIZ. HHH 
REM *+#% COUNTER (DH) HHH 
REM 

VTAB 6&6: PRINT “UPSENSOR READING ="C2 
IF C2 < 131 THEN GOTO 5945 

IF LW > 160 THEN GOTO 5985 

DH = DH + i 

REM 

REM +###+ SECOND STEP HHH 
REM 

POKE Li,LO: 

POKE L2,HI: 

POKE L3,HI: 

POKE L4,LO 

REM 

REM *+*+% IF OF UPSENSOR OBTAINED Xt 
REM *#% THIS TIME (C2) IS GREATER x*+« 
REM *#%#+ THAN THE VALUE OBTAINED HHH 
REM *#* LAST TIME (Ci), ZERO THE «x 
REM *#+#+% COUNTER BECAUSE STILL: Ht 
REM *#*% HEADING TOWARD THE SUN HEX 


Si 


2430 
9435 


- 5440 


9445 
9450 
0499 
2460 
2465 
2470 
3475 
2480 
2485 
3490 
2495 
2700 
2005 
90910 
vo1is 
I I20 
IIZ9 
2050 
DIDO 
3040 
0045 
J II0 
9009 
3060 
IV6S5 
2070 
v075 
2080 
0085 
2790 
DVIS 
2600 
2605 
7610 
2615 
2620 
9625 
9630 


9635 
27640 
9645 


7600 
96595 


REM 


Ir C2 > €1 THEN Z =3e26 =o 

REM 

REM x*#*%* IF CURRENT VALUE LESS HHH 
REM +*#+# THAN LAST VALUE INCRIMENT *«« 
REM **#* COUNTER (2), AND STEPS HHH 
REM *#* TAKEN SINCE MAX VALUE HHH 
REM *#* COUNTER (G). te 
REM 

IF C2 < C1 THEN Z = Z+i1:3:G =G+2 
REM 

REM **%* CONTINUE COUNTING STEPS et 4 
REM *** SINCE PASSED MAX VALUE EEE 
REM #+%* QF UPSENSOR. HHH 
REM 

IF (C2 = C1) AND (Z > O) THEN G = G + 
REM 

REM #*%* REPLACE PREVIOUS READING **+* 
REM *** WITH CURRENT READING FOR "++ 
REM +#*##% NEXT CHECK. 4 
REM 

Ci = C2 

REM 

REM #x#* IF CURRENT READING WAS + 
REM *## LESS THAN PREVIOUS READING*«*+* 
REM *«*#% FOR THREE CONSECUTIVE % eH 
REM #*#% CHECKS, THEN ARE GOING HHH 


REM *** AWAY FROM SUN. GO BACK TO **+* 
REM *«#% WHERE FIRST C2<Ci OCCURED ««* 
REM *«*«* (G) STEPS AGO. He 
REM 

IF Z = 3 THEN AB = O: GOTO 6090 

REM 

REM *** INCRIMENT DEGREES HORIZ. *«** 
REM #*%* COUNTER (DH). REPEAT ABOVE *«** 
REM *«*«*% LOGIC ON ALTERNATE STEP HEH 
REM **#* BASIS FOR REMAINING STEPS *** 
REM *«** OF EIGHT STEP DRIVE LOOP **+* 
REM 

DH = DH + 1 


POKE Li,LO: 
POKE L2,HI: 


POKE L2,LO: 

POKE L4,LO0 

C2 = PEEK (M + 3): 

C2 = PEEK (M + 3) 

LW = PEEK (M + 6)5 

iW= PEEK (M + 6) 

VTAB 6: PRINT “UPSENSOR READING ="C2 


IF C2 < 131 THEN GOTO 5945 
IF LW > 160 THEN GOTO 5985 
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7660 
9669 
3670 


36/79 
3680 
9685 
09690 
0695 
3700 
3/705 
3/710 
9715 
3720 
3/25 
3730 
9/735 


3/740 


0745 


3/30 
9759 
3/760 
9769 
3/770 
3/773 


3780 
0/785 
3790 
9795 
3800 
3805 
9810 


9815 


0820 


2825 
9830 


X1 = DH / LD 

DH = DH + 1 

PORE t.1,L0: 

PGRE L2,HI: 

POKE L3,LO: 

POKE L4,HI 

IF C2 > Ci THEN Z = 0:G = O 

i £2 < €1 THEN @—- Zt 1-6 = Gt 2 
IF (C2 = C1) AND (Z > O) THEN G = G + 
Ci = C2 

IF Z = 3 THEN AB = 0: GOTO 6090 

DH = DH + 1 

REM 

REM *** SET UP FOR DEGREES LONG. *x+* 
REM *** PRINTOUT WITH ONE DECIMAL x*«« 
REM **%* PLACE ACCURACY. He 
REM 

X1 = INT (X1 * 10 + .3) / 10 

POKE L1i,LO: 

POKE L2,LO: 

POKE L3,LQ: 

POKE L4,HI 

C2 = PEEK (M + 3)5 

CZe>= PEEK (+ 3) 

iLW= PEEK (M + 6)5 

LW= PEEK (M + 6) 

VTAB 6: PRINT “UPSENSOR READING ="C2 
IF C2 < 131 THEN GOTO 5945 

IF LW > 160 THEN GOTO 3985 

VTAB 8: PRINT “DEGREES LONGITUDE ="X1 
DH = DH + 1 

POKE L1,HI: 

POKE L2,LQ: 

POKE L3,LOQ: 

POKE L4,HI 

IF C2 > C1 THEN Z = 0:6 = 0 

IF C2 < Ci THEN Z = Z+1:G = G+ 2 
IF (C2 = C1) AND (Z > O) THEN G = G + 
Gi= C2 

IF Z = 3 THEN AB = O: GOTO 6090 

DH = DH + 1 

Poke .L1 HI: 

POKE L2,LO: 

POKE L3,LO: 

POKE L4,LO0O 

C2 = PEEK (M + 3): 

C2 = PEEK (M + 3) 

LW= PEEK (M + 6): 

LW = PEEK (M + 6) 

VTAB:°6: PRINT “UPSENSOR READING ="C2 


IF C2 < 131 THEN GOTO 5945 


85 


2 


5835 IF LW > 160 THEN GOTO 5985 
S840 DH = DH + 1 
5845 POKE L1,HI: 


POKE L2,LO: 

POKE L3,HI: 

POKE L4,LO 
5850 IF C2 > Ci THEN Z = 0:6 = 0 
5855 IF C2 < Ci THEN Z = Z+ 1:6 =6 + 2 
5860 IF (C2 = Ci) AND (Z > O) THEN G = G + 2 
5865 Ci = C2 
5870 IF Z = 3 THEN AB = 3: GOTO 46090 
5875 DH = DH + 1 
S880 REM 
S885 REM *** RETURN TO STEP ONE 4% 
5890 REM 
5895 GOTO 5270 
5900 REM 
5905 REM ***« IF UPSENSOR GOES BELOW HEX 
5910 REM *** THRESHOLD RETURN TO START *«x* 
5915 REM ***« POSITION. USE FLASHING Hex 


9920 REM #**#*# MESSAGE. REZERO COUNTER HHH 

9925 REM **#* (AB) SINCE SUN LOSS DUE HEE 

9930 REM *### TO CLOUD COVER IN NORMAL **#+* 

9935 REM #«*«* OCCURANCE. Ht 

29740 REM 

9945 VTAB 12: FLASH : 
PRINT “SUN INTENSITY BELOW THRESHOLD VALUE”: 
VTAB 13: PRINT "RETURNING TO START UP POSITION": 
NORMAL :AB = O: GOTO 1470 


9950 REM 
9955 REM #*## IF TRANSITION FROM EAST TO*«#*#+* 
99760 REM #** WEST WITHOUT ACHIEVING HHH 


9965 REM ### LOCKON, RETURN TO STARTUP #*«#+# 

99770 REM ### POSITION, BUT DO NOT RESET ##+* 

9975 REM *#*#* COUNTER (AB). HEE 

2780 REM 

99785 VTAB 12:2 FLASH : 
PRINT "REACHED WEST LIMIT WITHOUT FINDING": 
VTAB 13: PRINT "ACCEPTABLE LOCK ON CRITERIA, RESET": 
NORMAL =: GOTO 1470 


27990 REM 

9995 REM #*## IF FAIL TO FIND SUN AFTER *** 
5000 REM *### TWO EAST TO WEST TRYS, HHH 
6005 REM #*##%* PRINT ERROR MESSAGE AND HE 
6010 REM **#*« DETERMINE IF WANT TO 5 tad 
6015 REM ##** CONTINUE TRYING. et 
6020 REM 


6025 VTAB 16: FLASH : 

PRINT “UNABLE TO LOCATE SUN LONGITUDE" 
6030 VTAB 17:2 PRINT “AFTER TWO TRYS. SUN PROBABLY” 
6035 VTAB 18: PRINT "SETTING TOO FAR WEST": NORMAL 
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6040 
6045 
6050 
6059 
6960 
6065 
6070 
5075 
6080 
6085 
6090 


6095 
6100 


6105 
6110 


6115 
6120 


6125 
6130 


61S5 
6140 


6145 
6150 


6155 
6160 


6165 
6170 


GOSUB 


VTAB 20: INPUT "WANT TO TRY AGAIN(Y/N) 2"5KS 
IF K$® = “Y" THEN AB = 0: HOME : GOTO 1460 

IF KS = "N”" THEN PRINT CHRS (4)5 "RUN HELLO" 
REM 

REM **« BACKUP STEP SEQUENCE HE 4 

REM 

REM *#* RETURN TO POSITION WHERE ««« 

REM *«** SUN INTENSITY FIRST BEGAN ««* 

REM *«** TO DROP OFF (G) STEPS AGO «** 

REM 


POKE L1,HI: 
POKE L2,LO0: 
POKE L3,HI: 
POKE L4,L0 
6205 
POKE L1,HI: 
POKE L2,LO0: 
POKE L3,LO: 
POKE L4,LO 
GOSUB 6205 
POKE Li,HI: 
POKE L2,LO0: 
POKE L3,LO: 
POKE L4,HI 
GOSUB 6205 
POKE L1,LO: 
POKE L2,LO0: 
POKE L3,LO: 
POKE L4,HI 
GOSUB 6205 
POKE Li,LO: 
POKE L2,HI: 
POKE L3,LO: 
POKE L4,HI 
GOSUB 6205 
POKE L1i,LO: 
POKE L2,HI: 
POKE L3,LO: 
POKE L4,LO0 
GOSUB 6205 
POKE L1,LO: 
POKE L2,HI: 
POKE L3,HI: 
POKE L4,L0 
GOSUB 6205 
POKE Li,LO: 
POKE L2,LO: 
POKE L3,HI: 
POKE L4,LO0 
GOSUB 6205 
GOTO. 6090 
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6175 
6180 
6185 
61990 
6195 
6200 
6205 
6210 
6215 
6220 
6225 
6230 
6235 
6240 
6245 
6250 
62355 
5260 
6265 
6270 
6275 
56280 
6285 
5290 
6295 
6300 
6305 
6310 
6315 
6320 
6325 
6330 
6335 
6340 
6345 
6350 
63535 
5360 
6365 
6370 
63735 
6380 
6385 


6390 


6395 


REM 


REM *#%* SUBROUTINE TO DECRIMENT HH 4H 
REM **#* (G) COUNTER, AND DEGREES «**x 
REM *#%*% HORIZONTAL COUNT AS HHH 
REM *#+* BACKUP. HHH 
REM 

IF G = 0 THEN AC = O: GOTO 6260 
G=G6G- 1 

DH = DH - 1 

RETURN . 

REM 

REM *** THIS PORTION OF THE SUN HHH 
REM x*** LOCATION SECTION GETS AN) *** 
REM *#%* ELEVATION LOCKON PRIOR TO *** 
REM *#%* PASSING CONTROL TO THE HHH 
REM *#** TRACKING SECTION. HH 
REM 

DV = 0 

REM 

REM x**%* IF GO THROUGH ELEVATION HHH 
REM *#%* TRANSITION TWICE WITHOUT «x«* 
REM *#% ACHIEVING LOCKON, PRINT HHH 
REM *#% ERROR MESSAGE. HHH 
REM 

IF AC = 2 THEN GOTO 3365 

AC = AC + 1 

HOME 

VTAB 2: PRINT "NOW LOCKING ONTO SUN’S 
REM 

REM x*** PRINT LONGITUDE VALUE HHH 
REM x**#%* FOUND IN PREVIOUS ROUTINE *x*««x 
REM **#* WITH ONE DECIMAL POINT HHH 
REM x**#* ACCURACY. HHH 
REM 

X1 = DH / LD 

Xi = INT (X1 * 10 + .5) / 10 

VTAB 4: PRINT "SUN LONGITUDE ="X1 
VTAB 3S: PRINT "EAST=0 DEG SOUTH=90 DEG WEST =180 DEG" 
REM 

REM x**+* SET MEMORY LOCATIONS FOR *** 
REM **#%# DRIVE ROUTINE. HHH 
REM 

Ll = M+ 3S: 

L2 = MM + &: 

(Ss = f+ 7: 

L4 =~ M+ 8 

PGige 1,0; 

POKE L2,LO: 

POKE L3,HI: 

POKE L4,L0 

REM 


8 8 


ELEVATION" 


6400 
6405 
6410 
6415 
6420 


6425 


6430 


6435 
6440 
6445 
6450 
64595 
6460 
6465 
6470 
6475 
6480 
6485 
6490 
6495 
6500 
6505 
6510 
6515 


6520 
6525 
6530 
6535 
6540 
6545 
6550 
6555 
6560 
6565 
6370 
63575 
6580 
6985 
63590 
6595 
6600 
6605 
6610 
6615 


REM **#* GET VALUES OF UPSENSOR (C3) «++ 


REM *** DOWN SENSOR (C4), AND 4 
REM **#* UP LIMIT SWITCH (LU) KEK 
REM 

C3 = PEEK (M + 3): 

C3 = PEEK (M + 3) 

C4 = PEEK (M + 4): 

C4 = PEEK (M + 4) 

LU = PEEK (mM + 7): 

LU = PEEK (M + 7) 

REM 

REM *** IF UPSENSOR (C3) BELOW KK 
REM *** SUNLIGHT THRESHOLD, OR HIT#** 
REM *** UPLIMIT SWITCH, EXIT DRIVE *«* 
REM *** LOOP. ee 
REM 

IF C3 < 131 THEN GOTO 6920 

IF LU > 160 THEN GOTO 6950 

REM 

REM *** INCRIMENT DEGREES ELEVA- «** 
REM *** TION COUNTER (DV) vere 
REM 

DV = DV + 1 

REM 

REM *x** STEP TWO ex 
REM 

POKE Li,LO: 


POKE L2,HI: 
POKE L3,HI: 
POKE L4,L0 


REM 
REM 
REM 
REM 
REM 
REM 


IF C3 
IF (C3 


DV = 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
X2 = 


= C4 


= C4 + 1) OR (CS = 
DV + 1 


*#*x*% CALCULATE DEGREES ELEV. 
*#*##% BY DIVIDING THE COUNTER 
*%##*% VALUE (DV) BY STEPS PER 
##% DEGREE ELEVATION (LE), 
##*#* DETERMINED IN CALIBRATION 
#** ROUTINE. REPEAT ABOVE 

*##%*% LOGIC FOR REMAINING STEPS *x** 


*#*#%*% IF ACHIEVE BALANCE BETWEEN 
*#*#*% UPPER AND LOWER SENSOR TO *** 
*#*#%* WITHIN ONE UNIT, GO TO 
*##% SUN TRACKING ROUTINE. 


HE 
HHH 


THEN GOTO 8060 


C4 - 1) THEN GOTO 8060 


REE 
HHH 
KRRE 
KEE 
KEK 
KEE 


DV / LE 


POKE L1,LO: 
POKE L2,HI: 
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POKE L3,LO: 
POKE L4,L0 
6620 C3 = PEEK (M + 3): 
C3 = PEEK (M + 3) 
6625 C4 = PEEK (M + 4): 
C4 = PEEK (M + 4) 
6630 LU = PEEK (M + 7): 
LU = PEEK (M + 7) 
6635 IF C3 < 131 THEN GOTO 6920 
6640 IF LU > 160 THEN GOTO 6950 
6645 DV = DV + 1 
6650 POKE L1,LO: 
POKE L2,HI: 
POKE L3,LO: 
POKE L4,HI 
6655 IF C3 = C4 THEN GOTO 8060 
6660 IF (C3 = C4 + 1) OR (C3 = C4 — 1) THEN GOTO 8060 
6665 DV = DV + 1 
6670 X2 = INT (X2 * 10 + .5) / 10 
6675 POKE L1,LO0: 
POKE L2,LO: 
POKE L3,LO: 
POKE L4,HI 
6680 C3 = PEEK (M + 3): 
C3 = PEEK (M + 3) 
6685 C4 = PEEK (M + 4): 
C4 = PEEK (mM + 4) 
6690 LU = PEEK (M + 7): 
LU = PEEK (M + 7) 
6695 IF C3 < 131 THEN GOTO 6920 
6700 IF LU > 160 THEN GOTO 6950 
6705 DV = DV + 1 
6710 POKE Li,HI: 
POKE L2,LO: 
POKE L3,LO: 
POKE L4,HI 
6715 IF C3 = C4 THEN GOTO 8060 
6720 IF (C3 = C4 + 1) OR (C3 = C4 - 1) THEN GOTO 8060 
6725 DV = DV + 1 
6730 REM 
6735 REM *** PRINT DEGREES ELEVATION *** 
6740 REM *** ONLY ONCE PER EIGHT STEP *** 
6745 REM *** LOOP DUE TO SPEED #38 
6750 REM *** CONSIDERATIONS. Ree 
6755 REM 
6760 VTAB 7: PRINT "DEGREES ELEVATION ="X2" DEG" 
6765 POKE L1,HI: 
POKE L2,LO: 
POKE L3,LO: 
POKE L4,LO 
6770 C3 = PEEK (M + 3): 


910 


6773 


6780 


6785 
6790 
6795 
6800 


6805 
6810 
6815 
5820 
6825 
6830 
6835 
5840 
6845 
6850 
6855 
6860 


6865 


6870 
6875 
6880 
6885 
6890 
6895 
6900 
6905 
65910 
6915 
6920 


6925 
6930 
6935 
5940 
5945 
6950 


CS = PEEK (M + 3) 
C4 = PEEK (M + 4): 
C4 = PEEK (M + 4) 
LU = PEEK (M + 7): 
LU = PEEK (M + 7) 


recs Tot 
IF LU > 160 
DV = 
POKE Li,HI: 
POKE L2,LO0: 


THEN GOTO 6920 
THEN GOTO 6950 


PORE LS,HI; 

POKE L4,L0 

IF C3 = C4 THEN GOTO 8060 

IF (C3 = C4 + 1) OR (C3 = C4 - 1) THEN GOTO 8060 
DV = DV + 1 

GOTO 6390 

REM 

REM *##% PRINT ERROR MESSAGE IF HHH 

REM **%#% HAVENT ACHIEVED LOCKON HHH 

REM ***« AFTER TWO ATTEMPTS, AND HHH 

REM *#* DETERMINE IF WANT TO HH 

REM x*#%# CONTINUE. EE 

REM 

VTAB 16: FLASH : 

PRINT “UNABLE TO ACHIEVE SENSOR BALANCE AFTER" 
VTAB 17: 

PRINT “TWO ATTEMPTS. POSSIBLE SYSTEM PROBLEM": NORMAL 
VTAB 19: INPUT “WANT TO TRY AGAINCY/N) ?2?"5KS 

IF KS = "YY" THEN AC = O: HOME : GOTO 1460 

IF KS = "N" THEN PRINT CHRS (4)5 "RUN HELLO" 
REM 

REM x## IF SUN GOES BELOW THRES-— ««*+« 

REM *##% HOLD (BEHIND A CLOUD) HHH 

REM *##% WHILE ATTEMPTING TO LOCK «** 

REM *#% ON, RETURN TO START POSIT. «#+# 

REM *## AND TRY AGAIN. HH 

REM 

VTAB 12:5 FLASH : 


PRINT “SUN INTENSITY BELOW THRESHOLD VALUE": 


VTAB 13: PRINT “RETURNING TO START UP POSITION": 
AC = 0: NORMAL =: GOTO 1470 

REM 

REM ##% IF REACH UPPER LIMIT HEM 

REM x#* SWITCH AFTER FIRST TRY, HHH 

REM ##% PRINT THIS MESSAGE. HHH 

REM 

VTAB 12: FLASH : 

PRINT “HAVE REACHED UPPER LIMIT WITHOUT": 


VTAB 13: 
NORMAL : 


PRINT “ACHIEVING SENSOR BALANCE, REZEROING": 
GOTO 1470 


ou 


B000 
B010 
B020 
B9030 
B040 
BOS0 
BO60 
B070 
BO80 
B090 
B100 
8110 
8120 
81-30 
8140 
8150 
8160 


B170 
8180 
8190 
8200 
8210 
B220 
B230 
8240 
B250 
8260 
8270 
8280 
B290 
B300 
8310 
8320 
B330 


B340 


8350 


8370 


8380 


B390 


REM 


REM 36 26 26 HE HEE EE HE HE EE HE EH HE HEH HH HHH HHH HEHEHE RHEE HEE 


REM ** SUN TRACKING ROUTINE “se 
REM HHH HH IH HHH HH HHH HHH HH HH HK KH HH HH HH HH HHH HH HHH 
REM 

REM 

HOME 

REM 

REM **#* ONCE ROUGH LOCKON IS HHH 

REM **#%* ACHIEVED BY THE FREVIOUS **+* 

REM **% ROUTINE, THIS ROUTINE FINEx**« 

REM **%* ADJUSTS SENSOR BALANCE AND*** 

REM *** TRACKS THE SUN. HHH 

REM 

REM *** INIT. OUT OF BALANCE CTRS. ***x 

REM 

UN = O: 

DN = O°: 

EN = 0: 

WN = O 

REM 

REM **%* COUNTER USED TO DETERMINE xx* 

REM *** IF SENSOR UNBALANCE IS HHH 

REM *#*%* VALID OR TRANSITORY HHH 

REM 

Q<= 5 

VTAB 2: PRINT "SUN TRACKING ROUTINE” 

VTAB 3: PRINT "THIS ROUTINE INSURES THAT THE TRACKER" 
VTAB 4: PRINT "STAYS LOCKED ONTO THE SUN. IF A CLOUD" 
VTAB 3S: PRINT "COVERS THE SUN, CONTROL IS PASSED TQ" 
VTAB 6: PRINT "THE CLOUD COVER WAIT ROUTINE UNTIL” 
VTAB 7: PRINT "THE SUN REAPPEARS" 

REM 

REM *** GET VALUES OF ALL SENSORS x*** 

REM x**%*% AND LIMIT SWITCHES. HHH 

REM 

US = PEEK (M + 3): 

US = PEEK (M + 3) 

DS = PEEK (M + 4): 

DS = PEEK (M + 4) 

ES = FEE (MN +e). 

ES = PEEK (M + 1) 

WS = PEEK (M + 2): 

WS = PEEK (M + 2) 

UL = PEEK (M + 7)3 

UL = PEEK (M + 7) 

DL = PEEK (M + 8):5 

DL = PEEK (M + 8) 

Fi = PEEK (M + 353): 

FL = PEEK (M + 95) 


SZ 


B400 WL = PEEK (M + 6): 
WL = PEEK (M + 6) 
8410 REM 
8420 REM *#% IF UUPSENSOR GOES BELOW HHH 
B430 REM *** THRESHOLD GO TO CLOUD HH 


8440 REM #*% WAIT ROUTINE. IF HIT LIMIT *** 
8450 REM *** SWITCH, GO TO APPROPRIATE **+* 


8460 REM #*#*%* NOTIFICATION MESSAGE EH 
8470 REM 

8480 IF US < 131 THEN GOTO 11099 

8490 IF UL > 160 THEN GOTO 9220 

8500 IF DL > 160 THEN GOTO 9270 

83510 IF EL > 160 THEN GOTO 9320 

8520 IF WL > 160 THEN GOTO 9370 

8530 REM 

8540 REM *+#* IF UPPER/LOWER OR EAST/ HEH 
8550 REM **#* WEST SENSORS ARE IN HH 
8560 REM *%#% BALANCE, ZERO APPROPRIATE «+ 
8570 REM ##% UNBALANCE COUNTER. HEH 
8580 REM 

8590 IF US = DS THEN UN = O:DN = 0 

8600 IF ES = WS THEN EN = O:WN = O 


8610 REM 
8620 REM ##% IF SENSOR PAIRS ARE OUT OF **+« 
8620 REM *** BALANCE INCRIMENT PROPER *** 


8640 REM #*#%* UNLBALANCE COUNTER. EH 
B650 REM 

8660 IF US > DS THEN UN = UN + 1 

8670 IF DS > US THEN DN = DN + 1 

8680 IF ES > WS THEN EN = EN + 1 

8690 IF WS > ES THEN WN = WN + 1 


8700 REM 

8710 REM *** SYSTEM OPERATION OUTPUTS *** 

8720 REM 

8730 VTAB 17:2 PRINT "UN="UN" DN="DN" EN="EN" WN="WN" 
Ba 5" " 

8740 VTAB 18: PRINT “SU="SU" SD="SD" SE="SE" SW="SW 
8750 REM 

8760 REM *%*% CHECK SENSOR OUT OF eH 

B770 REM **#%* BALANCE COUNTERS AND GO TO*x** 

8780 REM **#% APPROPRIATE DRIVE ROUTINE «xx 


8790 REM *** IF COUNTER IS ABOVE HEH 
8800 REM *#** THRESHOLD VALUE (G) HHH 
8810 REM 
8820 IF UN > = @ THEN Li = M + 35: 

“2 — M+ 6: 

L535 = M + 7: 

L4=M™ + 8: 

tS = 1: 

GOTO 9480 
8830 IF DN > = @ THEN Li = M + 5: 


os 


8840 


8850 


8860 
8870 
8880 
8890 
8900 
8910 
8920 
8930 
8940 
8950 
B960 
8970 
8980 
8990 
9000 
9010 
9020 
9030 
99040 
97050 
9060 
9070 
9080 
97090 
9100 
9110 
9120 
9130 
9140 
9150 
9160 
9170 
9180 
9190 


Q@ THEN Li 


ll 
=x 
+ 
‘a 


GQ) 
om) 
= 
lintrimonw it te 
ee eeae 


Q THEN Lil 


ll 
=< 
+ 
ve 


REM 
REM *#% PUT SENSOR VALUES ON 
REM #** SCREEN 


% HH 
% HE 


REM 

VTAB 9: PRINT TAB( 15) "US="US 

VTAB 10: PRINT TAB( 12) "WS="WS" ES="ES 
VTAB 11: PRINT TAB( 15) "DS="DS 

REM 

REM «** CONTINUE LOOP ke 
REM 

GOTO 8330 

REM 

REM *** PRINT DEGREES LONGITUDE «** 
REM *** AND ELEVATION VALUES WHEN **+* 
REM *** RETURN FROM DRIVE ROUTINES*** 
REM *** ONLY, SO LOGIC LOOP IS NOT#*« 
REM *** SLOWED DOWN BY UNNECESSARY*** 
REM ***% PRINT STATEMENTS. ee 
REM 

X1 = DH / LD 

X1 = INT (X1 * 10 + .5) / 10 

VTAB 14: PRINT “DEGREES LONGITUDE ="X1" 
X2 = DV / LE 

X2 = INT (X2 * 10 + .5) / 10 

VTAB 15: PRINT "DEGREES ELEVATION ="X2" 
REM 


REM *** RETURN TO LOGIC LOOP AFTER*** 
REM #** PRINT OUT. HEE 
REM 

GOTO 8330 

REM 

REM *%*% LIMIT SWITCH DEPRESSION eH 
REM *#*%* MESSAGES PRINTED WHEN HIT *«*+* 
REM *#** LIMIT SWITCH WHILE IN He 


94 


9200 REM **#% TRACKING MODE. EE 
9210 REM 
9220 VTAB 17:2 FLASH : PRINT "HAVE REACHED UPPER LIMIT, 
GHEGK SYSYTEM" 
9230 VTAB 18: PRINT “ALLIGNMENT TO TRUE EAST": NORMAL 
9240 VTAB 19:2 INPUT "WANT TO RERUN(Y/N) ?"35KS 
9250 IF KS = “Y" THEN HOME : GOTO 1460 
9260 IF KS = "N" THEN PRINT CHRS (4)5 "RUN HELLO" 
9270 VTAB 17: FLASH =: PRINT "HAVE REACHED DOWN LIMIT, MOST 
PROBABLE" 
9280 VTAB 18: PRINT "SUNSET OR MISALLIGNMENT": NORMAL 
9290 VTAB 19: INPUT "WANT TO RERUN (Y/N) ?"5K$ 
9300 IF KS = "Y" THEN HOME =: GOTO 1460 
9310 IF K% = "N" THEN PRINT CHRS (4)5 "RUN HELLO" 
9320 VTAB 17:2 FLASH =: PRINT “HAVE REACHED EAST LIMIT, MOST 
PROBABLE" 
9330 VTAB 18: PRINT “CAUSE EARLY MORNING, SUN TOO LOW": 
NORMAL. 
9340 VTAB 192 INPUT "WANT TO RERUN (Y/N) ?"5KS$ 
9350 IF KS = "Y" THEN HOME =: GOTO 1460 
9360 IF KS = "N“ THEN PRINT CHRS (4)5 "RUN HELLO" 
9370 VTAB 17: FLASH = PRINT "HAVE REACHED WEST LIMIT, MOST 
PROBABLE" 
9380 VTAB 18: PRINT “CAUSE, NEAR SUNSET": NORMAL 
9390 VTAB 19: INPUT "RERUN OR GO TO SLEEP (R/S) ?"5K% 
9400 IF KS = “R" THEN HOME = GOTO 1460 
9410 IF K$% = "S" THEN HOME : VTAB 10: 
PRINT “THANKYOU I’M REALLY TIRED“: GOTO 1460 
9420 REM 
9430 REM «*«+« UP/WEST DRIVE ROUTINES «+ 
9440 REM 
9450 REM 
9460 REM *** STEPS PER DRIVE ACCESS HHH 
9470 REM 
9480 CT = 2 
9490 REM 
9500 REM *** GO TO DRIVE STEP ENTRY ad 
9510 REM *«#** LOGIC STATEMENT AS DETER- *** 
9520 REM *** MINED BY (L535) HHH 
9530 REM 
93540 IF LS = 1 THEN GOTO 9620 
95950 IF LS = 2 THEN GOTO 96350 
93560 REM 
9570 REM *** DETERMINE PROPER STEP TO *** 
95980 REM ***« REENTER DRIVE ROUTINE TO *** 
9590 REM ***« PREVENT JERKY SEEKER He 
9600 REM *#% MOTION WHILE TRACKING HHH 
97610 REM 


we 


9620 


9630 


97640 


9650 
7660 
9670 
9680 
96970 
97700 
97190 
9720 
9730 


97740 
97350 
9760 
9779 
97780 
9790 
9800 
7810 


9820 
9830 
97840 
9850 
9860 
9870 
9880 
97890 
9900 
FINO 
9920 
9930 
9940 
9950 


9960 


9970 


9980 
9990 


ON SU GOTO 9640,9950, 10000, 10050, 


10100, 10150, 10200, 10250 


ON SW GOTO 9640,9950, 10000, 10050, 


POKE L1, 
POKE L2, 
POKE L3, 
POKE L4, 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
IF LS = 
DV = DV 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
IF LS = 
DH = DH 
REM 

REM +**+ 
REM **«« 
REM #x«+« 
REM 

IF CT = 
REM 

REM 

REM 

REM 

REM 

REM 

CT = 


% 
% HH 
% HH 
% 
% 
HH 


% Ht 
% 
KEE 
% HH 
% HH 


% HE 
% HE 
HH 
HHH 


CT 


POKE Li, 
POKE L2, 
POKE L3, 
POKE L4, 


IF LS = 
DV = DV 
1FeLS = 
DH = DH 
IF CT = 
CT = CT 


10100, 10150, 10200, 10250 
LO: 
LO: 
HI: 
LO 


SET REENTRY STEP FOR THIS «#«* 
AND CORRESPONDING DRIVE ae 
LOOP IN OPPOSITE DIRECT ION#«« 
SINCE A STEP HERE CHANGES «#+# 
THE REENTRY POINT IN OTHER*#+« 
DRIVE LOOP. KH 


1 THEN SU = 2: 
+ 1°UN = O:5D = i 


BESIDES DETERMINING ee 
REENTRY POINT, CHANGE ven 
DEGREE COUNTERS (DV), (DH) *«* 
AND ZERO UNBALANCE COUNTER*+*« 
(UN) , (WN) 


2 THEN SW = 2: 
+ 1°WN = O:SE = 1 


AFTER CORRECT NUMBER OF 
STEPS PER DRIVER ACCESS 
RETURN TO LOGIC SECTION 


% HE 
HHH 
HEE 


O THEN GOTO 7050 


DECRIMENT STEPS PER ACCESS*#*+* 
COUNTER. CONTINUE ABOVE HHH 
LOGIC SEQUENCE FOR EIGHT *«*+* 
STEP LOOP. HHH 


eel 

LO: 

HI: 

HI: 

LO 

1 THEN SU = 3: 

+ 1;UN = O:SD = 8 
2 THEN SW = 3: 

+ 1°3WN = O:SE = 8 
O THEN GOTO 9050 
=408 


10000 POKE L1,LQ: 


96 


10010 
10020 
10030 


10040 
10050 


10060 
10070 
10080 


10090 
10100 


10110 
10120 
10130 


10140 
10150 


10160 
190170 
10180 


10190 
10200 


102190 
10220 
10230 


10240 
10250 


POKE _2,HI 
POKE L3,LO 
POKE L4,LO0 
IF t53 = 1 
DV = DV + 
te LS = "2 
DH = DH + 
IF CT = 0 
CT = CT - 
POKE L1,L0 
POKE L2,HI 
POKE L3,LO 
POKE L4,HI 
IF tS = 1 
DV = DV + 
iS = 2 
DH = DH + 
CT = 0 
CT - 
io 
L2,LO 
S,i20 
L4,HI 


Oo 
% 
rm 
eB 
iy 
Sy Pee) ie ie eee oe 


CT = CT - 
POKE L1,HI 
POKE L2,LO 


THEN 
12:UN 
THEN 
12WN 
THEN 
1 


THEN 
1:UN 
THEN 
12WN 
THEN 
1 


THEN 
1:2UN 
THEN 
12 WN 
THEN 


THEN 
12UN 
THEN 
1: WN 
THEN 
1 


SU = 4: 

= 0:SD = / 
SW = 4: 

= O:SE = 7 
GOTO 9050 
SU = 5: 

= O:SD = 6 
SW = 5: 

= O:SE = 6 
GOTO 9050 

SU = 6: 

= O:SD = 5 

SW = 6: 

= O:SE = 5 
GOTO YOS50 
SU = 7: 

= O:SD = 4 
SW = 7: 

= O:SE = 4 
GOTO 9050 
SU = 8: 

= O:SD = 3 
SW = 8: 

= O:SE = 3S 
GOTO 7050 


a7 


10260 


10270 


10280 
10290 
10300 
10310 
10320 
10330 
10340 
10350 
10360 
10370 
10380 
10290 
10400 
10410 


10420 


10430 


10440 
10450 
10460 


10470 
10480 


10490 
10500 
10510 


10520 
103530 


103540 


10550 


POKE L3,HI: 
POKE L4,L0 


REM **#% DOWN/EAST DRIVE ROUTINES 


IF LS = 1 THEN 
DV = DV + 1:UN 
IF LS = 2 THEN 
DH = DH + 1:WN 
IF CT = O THEN 
CT = €t — 1 
GOTO 9640 

REM 

REM 

REM 


SU = 1: 
= O0:SD = 2 
SW = i: 
= O:SE = 2 
GOTO 9050 


HHH 


REM *#% LOGIC SAME AS FOR UP/WEST **+ 
REM ##% DRIVE ROUTINES 


REM 
CT = 2 
IF LS 
ie ES 


1 THEN GOTO 10410 
2 THEN GOTO 10420 


HHH 


ON SD GOTO 10430, 10480, 190530, 10580, 


10630, 10680, 10730, 10780 


ON SE GOTO 10430, 10480, 10530, 10580, 


10630, 10680, 10730, 10780 


POKE L1i,HI: 
POKE L2,LO: 
POKE L3,HI: 
POKE L4,LO 

IF LS = 1 THEN 
DV = DV — 1:DN 
IF LS = 2 THEN 
DH = DH — 1:EN 
IF CT =0 
CT = CT -1 
POKE Li,HI: 
POKE L2,LO: 
POKE L3,LO: 
POKE L4,LO 

IF LS = 1 THEN 
DV = DV - 
IF LS = 2 

DH = DH —- 1:EN 
IF CT = 0 

CT =cT - 

POKE Li,HI: 
POKE L2,LO: 
POKE L3,LO: 
POKE L4,HI 

IF LS = 1 THEN 
DV = DV - 
IF LS = 2 THEN 
DH = DH - 


SD = 2: 
= 0:S5U = 1 
SE = 2: 
= O:SW = 1 
GOTO 9050 
SD = 3: 
= 0:SU = 8 
SE = 3S: 
= O:SW = 8 
GOTO 97050 
SD = 4: 
= 0:SU = 7 
SE = 4: 
= O:SW = 7 


98 


10560 
10570 
10580 


10590 
10600 
19610 


10620 
10630 


10640 
10650 
10660 


10670 
10680 


10690 
10700 
107190 


10720 
107390 


10740 
10750 
10760 


10770 
10780 


10790 


10800 


10810 


IF CT = 0 THEN 
= eto 
POKE Li,LO: 
POKE L2,LO: 
POKE L3,LO: 
POKE L4,HI 

IF LS = 1 THEN 
DV = DV — 1:DN 
IF LS = 2 THEN 
DH = DH — 1:EN 
IF CT = 0 THEN 
CT =cT-1 
POKE L1i,LO: 
POKE L2,HI: 
POKE L3,LO: 
POKE L4,HI 

IF LS = 1 THEN 
DV = DV — 1:DN 
IF LS = 2 THEN 
DH = DH — 1:EN 
IF CT = 0 THEN 
Cie- Cy —ot 
POKE L1i,LO: 
POKE L2,HI: 
POKE L3,LO: 
POKE L4,L0 

IF LS = 1 THEN 
DV = DV —- 1:DN 
IF LS = 2 THEN 
DH = DH — 1:EN 
IF CT = O THEN 
CT =cT -1i 
POKE L1i,LO: 
POKE L2,HI: 
POKE L3,HI: 
POKE L4,LO0 

IF LS = 1 THEN 
DV = DV - 1:DN 
IF LS = 2 THEN 
DH = DH — 1:EN 
IF CT = O THEN 
CT =cCT -1 
POKE L1,LO: 
POKE L2,LO0: 
POKE L3,HI: 
POKE L4,L0 

IF L5 = 1 THEN 
DV = DV —- 1:DN 
IF LS = 2 THEN 
DH = DH — 1:EN 
IF CT = 0 THEN 


GOTO 7050 
SD = 5: 
= O:S5U = 6 
SE = 5: 
= O:SW = 6 
GOTO 9050 
SD = 6: 
= O:SU = 5 
SE = 6: 
= O:SW = 5S 
GOTO 9050 
SD = 75 
= O:SU = 4 
SE = 7/7: 
= O:SW = 4 
GOTO 7050 
SD = 8: 
= O:SU = 3 
SE = 8: 
= O:SW = 3 
GOTO 9050 
SD = 1: 
= O:S5U = 2 
SE = 1: 
= O:SW = 2 
GOTO 9050 


29 


10820 
190830 
11000 
11010 
11020 
11030 
11040 
11050 
11060 
11070 
11080 
11090 
11100 
111190 
11120 
11130 
11140 
11150 
11160 
11170 
11180 
11190 
11200 
11210 
11220 
11230 
11240 
11250 
11260 
11270 
11280 
11290 
11300 


11310 
11320 
11330 
11340 
11350 
11360 
11370 
11380 
11390 
11400 
11410 


Gr = Cla! 
GOTO 190430 

REM 

REM 

REM 

REM *+* 

REM 

REM 

REM 

REM *#* TIME LOOPS. 
REM 

HOME 

XX = 0:22 = O 
VTAB 8: PRINT 
VTAB 102 PRINT 
VTAB 11: PRINT 
VTAB 12: PRINT 
VTAB 13: PRINT 
VTAB 14: PRINT 
VTAB 15: PRINT 
VTAB 16: PRINT 
REM 

REM *** LOOPS 
REM *** TIMES 
REM 

FOR XX = 1 TO 
FOR ZZ = 1 TO 
REM 

REM ###% CHECK 
REM 

REM 

REM 

US = PEEK (M 
US = PEEK (M 
VTAB 19:2 PRINT 
VTAB 20: PRINT 
REM 


KEM *#* IF SUN COMES BACK OUT OR 
REM #*** REACH 10 MINUTE TIME OUT 
REM *##* EXIT CLOUD COVER ROUTINE 


REM 


HEHE HE HE HE HE HE HE HE HE EE EE EH EH HK HE HK KH HE EHH HHH KE KKK 


CLOUD COVER ROUTINE HH 


*### CLEAR SCREEN AND INITIAL— «x 


*** IZE LOOP COUNTERS FOR 


#*## DISPLAY SENSOR AND TIME 
### DATA ON SCREEN. 


IF US > 


IF X 
NEXT 
NEXT 


X > 
EL 
XX 


131 
600 


KEN 
HHH 


TAB( 3) "CLOUD COVER ROUTINE” 

"THIS ROUTINE CHECKS THE UPPER SENSOR" 
"WAITING FOR THE SUN TO COME BACK OUT" 
"IF THE SUN HAS NOT COME BACK OUT FOR" 
"APPROXIMATELY 10 MINUTES THE SYSTEM" 

"WILL AUTOMATICALLY REZERO ITSELF AND" 
"WAIT FOR THE SUNS INTENSITY TO AGAIN" 
"GO ABOVE THE THRESHOLD VALUE" 


TO ADJUST DELAY HHH 
FOR ONE SECOND CLOCK#«« 


603 
17 


KEK 
SHE 
HHRE 


UPPER SENSOR, AND 


+ 3)° 
+ 3) 
"UPPER SENSOR="US 
"DELAY TIME COUNTER="XX" SEC” 
HHH 
HHH 
HHH 


THEN GOTO 8060 
THEN GOTO 1460 
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